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PREFACE 



PRIMER OBJECTIVES 

This primer introduces the PASCAL language for the TOPS-20 operating 
system. It is designed to provide sufficient information about the 
language so that you can begin writing PASCAL programs. 

PASCAL-20 is an extended implementation of the standard proposed for 
the PASCAL language by the International Standardization Organization 
(ISO). This manual describes a subset of PASCAL-20, omitting some 
advanced features of the language. Once you have mastered the 
concepts in this primer, you should consult the TOPS-20 PASCAL 
Language Manual for full reference information on the PASCAL-20 
language . 

INTENDED AUDIENCE 

This manual does not attempt to teach programming concepts. It is 

assumed that you have experience programming in a high-level language 

or that you are taking an introductory programming course. However, 
prior knowledge of the PASCAL language is not necessary. 

You need not have a detailed understanding of the TOPS-20 operating 
system, but some familiarity with TOPS-20 is helpful. Also, you 
should know how to use a text editor to create a file. If you are new 
to TOPS-20, see the manual Getting Started with TOPS-20 for 
introductory material. 

HOW TO USE THIS DOCUMENT 

This manual contains seven chapters. Each chapter (except the first) 
introduces new concepts in PASCAL that build on material presented in 
previous chapters. It is recommended that you read the chapters 
sequentially to take advantage of this structure. 

Chapter 1 explains how to develop PASCAL programs on TOPS-20. You 
will find sample programs throughout this manual. You can enter, 
compile, link, and run these sample programs on TOPS-20 using the 
tools for program development introduced in Chapter 1. 

Chapter 2 describes the data types used in PASCAL, as well as the use 
of variables and expressions. 

Chapter 3 describes how to define data types and identifiers in your 
programs . 
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Chapter 4 describes how to read and write data. 

Chapter 5 describes two structured data types: the array and the 
record . 

Chapter 6 describes PASCAL statements, including the assignment 
statement, the compound statement, and repetitive statements. In 
particular, it describes the FOR statement, the REPEAT statement, the 
WHILE statement, the IF statement, the IF-THEN statement, the 
IF-THEN-ELSE Statement, and the CASE statement. 

Chapter 7 describes the use of procedures and functions. 

A glossary is presented at the end of this primer. The glossary 
defines many of the terms presented in the text. 

FOR MORE INFORMATION 

For reference information on the PASCAL-20 language, consult the 
TOPS-20 PASCAL Language Manual . It provides additional information on 
using PASCAL under the TOPS-20 operating system. 
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CONVENTIONS USED IN THIS DOCUMENT 

This document uses the following conventions: 

Convention Meaning 

... A horizontal ellipsis means that the 

preceding item can be repeated one or more 
times. 

A vertical ellipsis means that not all of the 
statements in a figure or example are shown. 

[I ]] Double brackets in format descriptions 

enclose items that are optional, for example: 

WRITE ( II OUTPUT, ]] print list) 

Do not type the double square brackets. 

WRITE (OUTPUT, 'Enter an integer') 

[ ] Square brackets mean that the syntax requires 

the square bracket characters. This notation 
is used with arrays, for example: 

ARRAY [index] 

{ } Braces enclose lists from which you must 

choose one item, for example: 



I TO \ 
\ DOWNTOf 



C KF1 ) This symbol indicates where you press the 

RETURN key. 

<CTRL/x> The notation <CTRL/x> indicates that you must 

press the key labeled CTRL while 
simultaneously pressing another key, for 
example, <CTRL/Z>. 

Simple_Procedure In programming examples, all names created by 

the programmer are printed in lowercase 
letters with initial uppercase letters. 

UPPERCASE LETTERS Uppercase letters in a command string 

indicate fixed (literal) information that you 
must enter as shown. 

lowercase letters Lowercase letters in a command string 

indicate variable information you supply. 

Contrasting Colors Orange - where examples contain both user 

input and computer output, the characters you 
type are in orange; the characters printed 
on the terminal are in black. 
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CHAPTER 1 
INTRODUCTION 



PASCAL is a computer language invented by Niklaus Wirth and named for 
Blaise Pascal, a French mathematician and philosopher. It is one of 
several programming languages used to translate symbolic language 
programs into machine language. Because the PASCAL language contains 
features suitable for many different programming applications, it has 
gained popularity as a general purpose language. PASCAL is used 
widely in educational institutions because its design lends itself 
toward teaching structured programming techniques. 

pascal's English-like statements ease the process of creating a 
logical flow of control. Thus, you can create code that is 
descriptive of what the program actually does. PASCAL and its 
data-structuring facilities encourage modular programming. In modular 
programming, you divide a problem into individual parts. These parts 
can be handled easily as subprograms within the main program. 

Because you must declare all the data you are going to use at the 
beginning of the program, you must do some initial planning and 
organization. All the data structures in your program become readily 
apparent, making programs easy to read and modify. 

Some of the commonly used language features of PASCAL include: 

• FOR, REPEAT, WHILE statements 

• CASE, IF-THEN, IF-THEN-ELSE statements 

• INTEGER, REAL, CHAR, BOOLEAN, enumerated, and subrange scalar 
data types 

• ARRAY, RECORD, SET, and FILE structured data types 

• READ, READLN, WRITE, WRITELN input and output procedures 

• Functions sine, cosine, square root, round, predecessor, and 
successor 

PASCAL-20 is an outgrowth of the standard proposed for the PASCAL 
programming language by the International Standardization Organization 
(ISO). It contains all the elements of the proposed standard for 
PASCAL plus extensions to the language that allow you more 
flexibility. These extensions, which are described here in this 
primer and in the TOPS-20 PASCAL Language Manual , include: 

• Exponentiation operator 

• Double-precision real data type 
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• Variable names of up to 31 characters including the dollar 
sign ($) and the underscore (_) 

• OTHERWISE clause in the CASE statement 

• Character string and enumerated type parameters for the READ 
and READLN procedures 

• Enumerated type parameters for the WRITE and WRITELN 
procedures 

Throughout this document, PASCAL-20 is referred to as PASCAL unless 
otherwise specified. 

This chapter introduces the PASCAL language. Section 1.1 describes 
the structure of a PASCAL program. Section 1.2 explains how to 
develop a PASCAL program on the T0PS-2n operating system. Section 1.3 
presents a PASCAL program example. 

For more information on all aspects of the PASCAL language as 
implemented for T0PS-2n, see the TOPS-20 PASCAL Language Manual . 



1.1 THE STRUCTURE OF A PASCAL PROGRAM 

The structure of a PASCAL program consists of the following parts: 

1. A program heading 

2. A declaration section 

3. An executable section 

4 . A per iod ( . ) 

The program heading contains the name of the program and any external 
files the program may use for input and output. The declaration 
section is the place for all the definitions and data declarations 
that will be used in the program. The executable section contains all 
the statements that PASCAL will compile for execution. The period (.) 
marks the end of the program. 

The declaration section and the executable section together are 
considered a block. A block can be the main body of a program, a 
function, or a procedure. Functions and procedures are described in 
Chapter 7. 

PASCAL allows free formatting of program text. With free formatting, 
you can place statements anywhere on a line, divide one statement 
across more than one line, or place multiple statements on one line. 
However, you cannot split a name or number between lines or with a 
space. To make a program easier to read, you can indent parts of the 
program according to the program flow. 

You can also place comments anywhere in a PASCAL program. You enclose 
comments either within braces { } or within a 
left-parenthesis/asterisk asterisk/right-parenthesis combination (* 
*) . PASCAL ignores the text between the comment indicators. The 
following are examples of comments: 

{This is a comment.} 
(* So is this. *) 
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PASCAL provides the following delimiters for you to use when creating 
a program: 

• The reserved word BEGIN 

• The reserved word END 

• A semicolon (;) 

• A per iod ( . ) 

The reserved words BEGIN and END are used to separate functional parts 
of a PASCAL program. A reserved word is a word already defined in the 
PASCAL language; you cannot redefine it to denote anything other than 
its special meaning. BEGIN and END specify the beginning and end of 
an executable section. They also delimit a compound statement (See 
Section 6.2). 

Generally, each BEGIN must be associated with an END. Therefore, it 
is good practice to count the number of BEGINS in your program and 
make sure you have at least the same number of ENDs . The END 
delimiter is also associated with the RECORD declaration (Section 5.2) 
and the CASE statement (Section 6.4.3). No BEGINS are necessary in 
these two instances where ENDs occur. 

The semicolon ( ; ) and the period (.) are also delimiters in the PASCAL 
language. The semicolon separates successive PASCAL statements. It 
also terminates the program heading and items in the declaration 
section. You need not place a semicolon directly after the word BEGIN 
or before the word END, because BEGIN and END are not statements; 
they are delimiters. The period marks the end of the PASCAL program. 

The following sections explain the various parts of a PASCAL program 
while building a program called Grocery_Bi 11 . The program 
Grocery_Bill is an interactive program prompting you for the data it 
needs, performing calculations, and printing the results. 
Specifically, it performs the following steps: 

• Print instructions for entering prices of grocery items 

• Read each price and sum the prices to obtain a subtotal 

• Prompt for a yes or no answer to the question 'Do you have 
any coupons?' 

• Read and sum the total value of the coupons that are entered 

• Subtract the value of the coupons from the subtotal to obtain 
a total 

• Print a total 

The entire program Grocery Bill is listed in Section 1.3. 
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1.1.1 The Program Heading 

PASCAL programs always begin with a heading. The heading consists of: 

• The reserved word PROGRAM 

• The program's name 

• The program's input and output files (if any) , enclosed in 
parentheses 

• The semicolon delimiter 

The following is the heading for the program Grocery_Bi 1 1 : 

PROGRAM Grocer^:^.,.B:i. :L1. (INPUTv OUTF'UT)? (* FTo£5raiT. header X^ > 

This heading tells you that the name of the program is Grocery_Bi 1 1 , 
and the files the program uses are INPUT and OUTPUT. INPUT and OUTPUT 
are names known to PASCAL. They specify predeclared (that is, 
declared by PASCAL) text files. When you run a program that requires 
user response, these names indicate that the program uses your 
terminal for input and output. 

1.1.2 The Declaration Section 

PASCAL requires that you declare all data items in the program. To 
declare a data item, you give it a name, otherwise known as an 
identifier, and indicate what it represents. All declarations in a 
program must appear in the declaration section. 

Any constants, variables, functions, or procedures used in the program 
must be declared in the declaration section before being used in the 
executable section. Declarations must appear in the following order 
(if your program uses them) : 

1. LABEL -- declares labels for use by the GOTO statement 

2. CONST -- defines symbolic constants 

3. TYPE -- creates user-defined types 

4. VAR -- declares variables and their types 

5. VALUE -- initializes variables 

6. PROCEDURE and FUNCTION — declare routines 

CONST, TYPE, VAR, PROCEDURE, and FUNCTION are discussed in this 
manual. LABEL and VALUE are described in the TOPS-20 PASCAL Language 
Manua l . 

The program Grocery_Bill contains two kinds of declarations and 
definitions: TYPE and VAR. The first of these is the TYPE 
definition: 

TYF'E Yes...No -- (Ye<:i» No) ? 

This TYPE section defines a data type called Yes_No and the two 
constants. Yes and No, that constitute the values of the type. 
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The second declaration is the VAR declaration: 

V A R 1 1 e iTi .... P r^ i c e y T o t a I v 

C o ij p c) i"i .... I'i iTi o i..i r 1 1 1 R E. A I... .5 

S I..I b t o t a 1. • C o u f- Q n s t R E. A I... J ■■■■■■■ » 5 

AnsJ Ye ';;.... No? 

This variable section declares five real variables: I tein_Pr ice , 
Total, Coupon_Amount , Subtotal, and Coupons. In addition, a sixth 
variable, Ans, is declared to be of the- user-defined type Yes_No. The 
variable Ans can assume either of two values: Yes or No. 



1.1.3 The ExecuttJble Section 

The executable section contains the statements that, when executed, 
perform the actions of the program. The executable section follows 
the declaration section and is delimited by BEGIN and END (followed by 
a period) . The following is the executable section of the program 
Grocery_Bill : 

( * E X e c I..I t ;;) b 1 e S e c: t i o ri * ) 

BEGIN 

( * F"' r :i. 1 1 1 :i. ri s t r u c t i. o ri s f o r^ e rr I e r i n <.i d 3 1 a » * ) 

U) R 1 T E. L.. N ( ' E i"i t e r c o s t o f e ;:) c h <:-i r o c e r '.j i t e in ♦ rt e :i. t e in p e r I i ri e » ' ) ? 

W R 1 J E L.. N ( ' E.-; n t e t' t h e v a 1 u e ♦ t o t e r iii i ri a t e I i s t o f items <,') y 

(* l'i;ead prices and add each to suk^Loial until OtO is read* ^) 
REPEAT 

READLN(Itein..,.Price) f 

S IJ b total J "" S' I J b t o t a 1 I- 1 1 e in .... F" v i c e 

U N T I L ( 1 1 e in .... P r^ i c e - 0*0)? 

U)RITEL.N( 'Subtotal e«uals *'y Subtotal J 7 J 2 ) ? 

WF^lTEC'Do you have any coupons? Type yes or no and press <F<ET>* ')? 
READLNCAns) J 
If <Ans "" Yes) 
TF^EN 

BEGIN 

W R I T E 1... N < ' T \:{ p e value of eac h c o u p o ri ♦ ri e p e r^ I i ri e ♦ ' ) ? 

WRITELN( ' Type <CTRI.../Z) after enter in.<;i all coupons*')? 

<* Read and sum amount of each coupon until end of input* *) 

REPEAT 

READLN ( Coupon._Amount ) r 
Coupons **-- Coupons + Coupon s_. Amount 
UNTIL EOF (INPUT) 
ENB? 
<* Subtract coupons from Subtotal to obtain Totals and print Total* *) 
Total J=" Subtotal - Coupons? 

WRITELNCPay this amount - $'r Total :7:2) 

END* 

(* End of Pro?A«ram *) 

Between the words BEGIN and END are statements and procedures that 
read and write data, change the value of variables, and control 
execution. Specifically, they are: 

• The WRITE procedure. Section 4.3.1 

• The WRITELN procedure. Section 4.3.2 

• The READLN procedure. Section 4.2.2 
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• The EOF function, Section 4.4.2 

• The REPEAT statement, Section 6.3.2 

• The IF-THEN statement. Section 6.4.1 

Several input and output procedures are used in the program 
Grocery_Bill . For example, the first two WRITELN procedures print 
instructions on your terminal for entering a list of prices. The text 
within the apostrophes is printed. The third WRITELN procedure prints 
text followed by the value of a variable. Again, the text within 
apostrophes is printed. The integers that appear after the variable 
name Subtotal specify field width. The first integer specifies the 
total field width, that is, the number of columns occupied by the 
value being printed. The second integer specifies the number of 
places to the right of the decimal point in the printed value. 

The remaining output procedures in the program print either the text 
that is specified in apostrophes or text and the value of a variable, 
in the same manner as the output procedures explained above. 

The program Grocery_Bill contains three input procedures. Each reads 
a value from the terminal and assigns the value to the variable 
specified in parentheses, for instance: 

F^F:ADI.,.N(AriiiO ? 

This READLN procedure reads a value and assigns it to the variable 
Ans. Because Ans is of type Yes_No, the value to be read must be 
either Yes or No. The READLN procedure accepts the answer Yes or No 
in either uppercase or lowercase characters. 

The executable section of Grocery_Bill also illustrates the assignment 
statement. An assignment statement contains three parts - a variable, 
the assignment operator (:=), and an expression. Note the following 
format : 

variable := expression; 

The assignment statement causes the variable to assume the value of 
the expression, for example: 

S I..I b t c) t B 1 t ■■■■■ 8 1.J b t c) I a 1 f I L e in .... F r i c e f 

This assignment statement adds the current value of Subtotal and 
Item_Price, then assigns the sum to Subtotal. 

Grocery_Bill contains two kinds of control statements: IF-THEN and 
REPEAT. The IF-THEN statement is a conditional statement. If the 
expression (Ans = Yes) is true, the statement following the reserved 
word THEN is executed. The statement following THEN is a compound 
sta tement : 

IF (Ans --- Yes) 
THEN 
BEGIN 



END? 
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A compound statement specifies that all the statements within BEGIN 
and END are executed sequentially as a group. 

Finally, there are two examples of the REPEAT statement. One example 
is : 



F<EF--EAT 

REAriLN(:[teiri....F:T:i.ce) y 
Subtotal i--'-- Subtotal I- 

UNTIL (Iteirt.,.Price ■■■■■■■■ 0.0) ? 



;[ t e iTi .... I"' r^ ;i. c e 



The REPEAT statement specifies that the statements between REPEAT and 
UNTIL be executed in order and terminated when the value of the 
variable Item_Price equals 0.0. You do not need a semicolon before 
UNTIL because the UNTIL clause is not another statement; it is part 
of the REPEAT statement. The second example is: 

REPEAT 



UNTIL EOF (.INPUT)? 

This statement, like the previous REPEAT, performs the statements 
within the REPEAT and UNTIL repeatedly. However, in this example, 
execution terminates when the function EOF(INPUT) becomes true. EOF 
(end-of-f lie) is a predeclared PASCAL function that returns true at 
the end of an input file. The <CTRL/Z> that you type after entering 
the values of coupons indicates the end-of-file condition to PASCAL. 
(The PASCAL file INPUT is associated with your terminal.) 



1.2 PROGRAM DEVELOPMENT 

This section explains the steps in developing a PASCAL program 
Figure 1-1 illustrates the program development process. 



Commands 



Create a PASCAL 
program with a 
file type of PAS. 



C«PASCAL C«D , , 

PASCAL>EXAMPL.PAS ChD 
PASCAL /EXIT 

(a 



(?< LOAD EXAMPL 
The LOAD command 
assumes the file type^ 
Is REL 



$1 START 

The START command 
executes the current 
program In memory. 



Create a source program 



Compile the source program 



Link the object module 



Run the executable image -• 




EXAMPLPAS 



EXAMPL.REL 



Figure 1-1: Program Development Process 
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Developing a PASCAL program involves these six steps: 

1. Designing the program 

2. Creating the source file with an editor 

3. Compiling the source program to create an object module 

4. Loading the object module to produce an executable image 

5. Saving the executable image (optional) 

6. Executing the program 

After you design the program and create a source file with a text 
editor, do the following: 

1. Call the PASCAL compiler 

^pascalGlD 

2. Specify the files to compile 

PASCAL>f i lenameO'" ) 

3. Exit from the PASCAL compiler 

pascal>/exitGlD 

4. Load the relocatable binary file 

@LOAD f ilename<J?iLj 

5. Save the executable image of the file (optional) 

(aSAVE f ilenameCjlL) 

6. Execute the program 

@RUN f ilename OjD 

Note the following example. The program specified as the file name 
prints the letter M on the terminal. 

F-'ASCAL>letter.j='3sC«iD 
F' A S C: A I.. :>/ e ;■,' i t GlD 
01 03d 1 e tte r ♦ re 1 C_?iL) 
LINK J LaadiniS 

EXIT __ 

(3save letter ^exe CjiLL) 

LETTER a--XE,:l Saved 
&Tun letter C^O 

* * * 



1-! 



INTRODUCTION 

All the commands except the PASCAL commalid include a file name, that 
is, a TOPS-20 file specification. The PASCAL command returns a 
prompt: 

F-'ASCAL> 

In addition, commands can include optional switches. Command switches 
modify a command by providing the system with additional information 
on how to execute the command. For complete information on switches, 
refer to the TOPS-20 PASCAL Language Manual . 

TOPS-20 PASCAL COiMPILER 

On TOPS-20, you specify the file name of the program you want to 
compile. You can also call upon the recognition and prompt features 
to assist you when entering commands. With recognition, you type only 
enou gh of the command to identify the command, and then press the 
dED key. For example, you can type E XE and press the dED key for 
the EXECUTE command. Pressing the ClED key after typing enough to 
uniquely identify the command causes TOPS-20 to display the rest of 
the command. In addition, pressing the (JED key causes TOPS-20 to 
display prompts that indicate the next step. 

FILE SPECIFICATIONS 

The file specification tells the operating system which file to 
process. A full file specification contains a lengthy string of 
information. However, because the system assigns appropriate default 
values to most of the elements in a file specification, you rarely 
need to specify more than the follov/ing two elements: 

filename. f iletype 

PASCAL recognizes PAS as the default file type. If the file type is 
PAS, you can specify just the file name. However, if the file has 
another, type (for example, PROGRM.PFIG) , you must specify the type. 
The file name identifies the file by its name, and the file type 
describes what kind of data is in the file. On TOPS-20, the file name 
and file type of the source file can each contain up to 39 
alphanumeric characters. However, the file name of the relocatable 
binary file must contain no more than 6 characters and its file type 
no more than 3 characters; otherwise, you cannot load the file with 
the LINK program. For more information about file specifications and 
commands, refer to the TOPS-20 User* s Guide . For more information 
about switches that apply to PASCAL, refer to the TOPS-20 PASCAL 
Language Manual . 



1.2.1 Creating a Program 

When you write a program, you must create a file, called a source 
file, that contains the program source statements. You use a text 
editor to create a source file. For instance, to create a PASCAL 
program that has the file name EXAMPL and a file type of PAS, you can 
issue the TOPS-20 EDIT command as follows: 

©EDIT EXAMPL ♦PAS GiD 

%File not founds Creatin.^ New file 

Input: EXAMPL ♦PAS 

00100 
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If the file is a new file, the editor displays an additional message 
indicating that a new file is being created. You must include a file 
type (for example PAS) with the EDIT command. The EDIT command 
invokes the TOPS-20 default editor EDIT. The line number (00100) 
prompt indicates that EDIT is ready to accept input. For information 
on how to use EDIT, see the T 0PS-2n EDIT User' s Guide . 

On TOPS-20 in addition to EDIT, you can use any editor to which you 
have access, for example, the TV editor. For more information about 
the use of TV, refer to the TOPS-20 TV Editor Manual. 



1.2.2 Compiling a Program 

After you have edited your file, the next step is to compile it. To 
compile a source file, issue the PASCAL command. When the PASCAL 
prompt is displayed, enter the file name, for example: 



PF-ASCAL C "" ) 
PASCAL>t-XAMPL GilD 

r'ASCAL>/f:xTT CIiD 

(? 

To return to the operating system, type the /EXIT switch to the PASCAL 
prompt. If the file type is PAS, you can omit the file type because 
the PASCAL command assumes PAS as the default. However, if you use a 
file type other than PAS, you must specify the file type. 

When you enter the PASCAL command from the terminal , the PASCAL 
compiler does the following by default: 

« Produces an object module that has the same file name as the 
source file and a file type of REL, for example EXAMPL.REL. 

« Uses defaults when it creates the output files (switches on 
the PASCAL command can override these defaults) . 

If the compiler does not detect any syntax errors in the source file, 
the system displays the PASCAL prompt to indicate successful 
compilation: 

F-ASCAL> 

If the program contains syntax errors, however, the PASCAL compiler 
displays error messages on your terminal. It is then necessary to 
edit your source program with a text editor to correct the errors. 

TOPS-20 LISTING FILE 

On TOPS-20, the /LISTING switch on the PASCAL command requests the 
compiler to create a program listing. PASCAL does not produce a 
listing file unless you request one with the /LISTING switch. A 
program listing includes the program's source statements, line 
numbers, any error messages or warnings that are reported, and other 
information related to the compilation. For instance, to create a 
program listing of EXAMPL on TOPS-20, issue the command: 

pascal>e:xampl /listing QtD 

This command causes the compiler to create a file called EXAMPL. LST in 
addition to the object module EXAMPL.REL. The /LISTING switch does 
not direct EXAMPL. LST to the line printer. 
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To obtain a printed copy of the program listing, use the PRINT 
as follows: 



command 



(^1- ■ \< 1 N T' E- X A M F' I.. * L.. S T (jiiD 

A program can be successfully compiled, but still generate 
warning-level diagnostic messages on your terminal. For example, a 
number of warning-level diagnostic messages point out the use of 
nonstandard PASCAL features (that is PASCAL-20 extensions). These 
messages do not affect the compilation of a program in any way; they 
are reported only to flag the use of PASCAL-20 extensions. You can 
suppress the display of diagnostic messages for nonstandard PASCAL 
features by appending the /NOFLAG-NON-STANDARD switch to the PASCAL 
command as follows: 

(^PASCAL 

r-' A S C A L :> E X A M F ■ I... / N C) F I. A G N N •••• SiJ T A N IJ A R D GED 

Many of the sample programs in this primer use nonstandard syntax. 



1.2.3 Loading an Object File 

An object module (for instance, EXAMPL.REL) is not executable. To 
generate a file that can be executed by the system, you must use the 
TOPS-20 program LINK. To call LINK, use the LOAD command as follows: 

C»I..OAD EXAMPLC^^ 

You can omit the file type because the LOAD command assumes the file 
type REL by default. The LOAD command loads the object file. 

To create an EXE file, use the SAVE command. 

03 AVE EXAMPLC«Ii 



This creates a file named EXAMPL.EXE. EXAMPL.EXE is an executable 
image, that is, a file containing your program in an executable 
format. 



1.2.4 Executing a Program 

To execute the program EXAMPL, use the RUN command or the EXECUTE 
command. When you issue the RUN command, you provide the name of an 
executable image; the RUN command assumes a file type (or extension) 
of EXE by default. Thus, to run the program EXAMPL for which you have 
created the executable image, issue the RUN command as follows: 

QRim EXAMPL GJi:) 

The first time you run a program, it may not execute properly. If it 
has a bug, or a programming error, you may be able to determine the 
cause of the error by examining the output from the program or the 
listing file. V/hen you have determined the cause of the error, you 
can correct your source program and repeat the compiling, loading, and 
running steps to test the result. You can use PASDDT, the PASCAL 
debugger, to debug your program. For more information about PASDDT, 
refer to the TOPS--20 PASCA L Language Manual . 
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1.3 A PASCAL PROGRAM EXAMPLE 

This section presents the complete PASCAL program Grocery_Bi 1 1 . Note 
that the characters (* *) mark comments in the program. 

F-F<OGRAM Grocery,... Bill (INF-'UTc OUTF-'UT)? (* Fvo<;!iram header *) 

( * I'i e c 1 a r a t :i. o ri s e (.: t i o ii * ) 

TYPE 

Yes....Na -■ (Yes > No); (* Defines data twr-e Yes.,..No 

w i t h V a .1 u e <.^ Y e s a r i d No ^ ) 

KfM< 

1 1 e iTi ._. F-" r^ i c e •> J o t a 1 v 

Coupon.... Amount J F\'eal> (* Declares three real variables *) 

A n s J Y e s _. N o ? ( * D e c 1 a r e s a v a r^ i a b 1 e y A r i s y o f t w p e 

Yes....No *) 
S u b t o t a 1 r Co u p o n s J R E A L. J ■"■■ . f ( * .[ n i L .i. a 1 1 z e s t w o i- e a 1 v a r 1 a b 1 e s * .) 

( * E ;•( e c u t a b 1 e s e c.^ b i o n * ) 

BEGIN 

( * F" T^ i n t 1 n s t r^ u c t i o n s tor e n t e v i n ?i d a t a * ^ ) 

W R 1 T E I.. N ( ' E n t e r^ c o s t of e a c h ^ r o c e r- y 1 1 e in ♦ ri e :i t e in p e r 1 .i r i e ♦ ' ) ? 

WFi;ITF."LN( 'Fiinter the value ♦ to terininato:-? list of items.')? 

(* Read prices and add each to subtotal until 0»0 is read* W) 
REF-'EAT 

READLN<Item.._F>r:ice) ? 

Subtotal l~- Si.jbtotal 1 1 1 e^n .... F"' r i c e 
U N T 1 1.. ( 1 1 e in ... F-' r i c e ■■■■^ 0,0)5 

W R I T E I.. N < ' S u b t o t a 1 e « i..i a 1 s ir y 3 u b t o t a 1 J 7 : 2 ) ? 

WRITl:"('Do you have any coupons? Type yes or no and press <RE"T.'>» ')? 
READLN(Ans) J 
IF (Ans == Yes) 
THEN 

BEGIN 

W F\ I T E I.. N ( ' T ^; p e value of e a c hi c.^ o u p o n » n e p e r 1 .i. ri e » ' ) ? 

W R I T E: l_ N ( '7' "-.J p e <.' C 1 R L / Z > a f t e t~ e n t e r i 1 1 «3 all c: o u p o n s ♦ ' ) J 

(* Read and sum amount of each coupon until end of input. *) 

REPEAT 

READLN ( Coupon-. Amount ) r 
Coupons J"" Coupons + Coup on. ..Amount 
UNTIL EOF (INPUT) 
END? 
(* Subtract Coupons from Subtotal to obtain Total r and print Total. *) 
Total .- Subtotal - Coupons? 

W R I T E L N ( ' F- a y t h i s a m cj u ri t - $ ' r To t a 1 .* 7 .* 2 ) 

END. 

(* End of Pro.<Jram *) 

You can run the sample program by following the steps outlined in 
Section 1.2. The source file you create need not have the same name 
as the PASCAL program. For instance, you can create a file called 
CROC. PAS to contain the program. The name Grocery_Bill is an 
identifier known only within the PASCAL program. 

If you do not include the /NOFLAG-NON-STANDARD switch on the PASCAL 
command, the compiler reports warning-level error messages for each 
nonstandard feature used in the program. For example, the use of 
underscore {_) characters in Grocery_Bill is a nonstandard feature. 
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The following is a sample run of the program Grocery_Bi 1 1 . 

&}■■■' a s c a I 

P A S C A L_ >^ r o c ♦ >- a s / \; o f I a ^i 

PASCAL>/eK;i.t 

(^loari <:4voc ♦ re.'l. 

LINK J l...oad;i.ri<^ 

EXIT 

gf;;o(;m;:xc;: ,2 saved 

0?ruri ^roc texG 

E i"i t e r c o s t o f e a c: h <:i r a c e r \:f i t & tti ♦ ri e i t e m p e r^ I :i. ri e » 

E ri t e r t h e v a I. u o:? 0*0 t o L e t^ iti i. ri a t e I :i. s t o f i. t e iri s , 

:\ ♦25 

0.57 

3.42 

:l ♦ 1 5 

0.B9 

2.35 

0.0 

S I..I b t o i a 1 e a li a 1 s $ 9.63 

Do you have any coupons? Type yes or no and press <f\Er!>. yes 

Type V a 1 " j e o f e a <:^ h c o u p o ri . ri e p e r 1 :i. ri e 

T <:■.{ p e •::; C T R' E / Z > a f t e r e ri t e r* i ri ?J a 1 1 c: o u p o ri s ♦ 

0.10 

0.25 

. :l. 7 

0.30 

'"Z ay this amount -- $ 8.81 

e 

The program Grocery_Bill illustrates a small subset of the PASCAL-20 
language. It is designed to give you a feel for the way the parts of 
a PASCAL program work together. The following chapters describe the 
PASCAL-20 language in more detail. 
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CHAPTER 2 
DATA CONCEPTS 



This chapter presents an overview of the data concepts used in PASCAL. 
Section 2.1 briefly describes the PASCAL concepts of data and types. 
Section 2.2 describes PASCAL'S predefined and user-defined scalar 
types. Section 2.3 describes structured data types, and Section 2.4 
describes variables. Finally, Section 2.5 describes how identifiers 
and expressions are used in a PASCAL program. 



2.1 DATA AND DATA TYPES 

Data is a general term for what the computer uses. Within a PASCAL 
program, you represent data with identifiers; and, in turn, these 
identifiers represent certain PASCAL constructions. In a PASCAL 
program, you must assign each identifier a type. The type defines the 
set or range of values that is associated with the identifier. The 
following identifiers can be associated with data types: 

• Constants 

• Variables 

• Functions 

• Expressions 

A constant is a quantity that remains the same throughout the 
execution of a program. A constant's type is the data type associated 
with that constant. For example, a value of 3.14 can be associated 
with the identifier Pi, which is defined to be constant. Because the 
value 3.14 is a real number, the identifier Pi is evaluated as a real 
number . 

A variable is a quantity that can change during program execution. A 
variable's type is the data type associated with the set of values the 
variable can assume. In the program Grocery_Bill in Chapter 1, the 
identifier Item_Price is an example of a variable; the variable can 
assume different values in the program. Because Item_Price is defined 
as an integer, it can be assigned only integer values. 

A function is a computation that is associated with a name and that 
returns a value. A function's type is the same as that of the value 
it returns. Functions are described in more detail in Chapter 7. 

An expression can be a constant, a variable, a function, or a 
combination of these items separated by operators. Every expression 
is associated with a type. 
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PASCAL has three categories of data types: 

• Scalar 

• Structured 

• Pointer 

The scalar data types represent ordered groups of values. PASCAL 
provides two groups of scalar types: standard (or predefined) and 
user defined. Integers, real numbers, and a subrange of an integer 
range are examples of scalar data types. 

A structured data type consists of a collection of a specific data 

type. Structured data types are characterized by the types of data 

that are used, and by their organization. Examples of structured data 
types are arrays and records. 

Pointer data types provide access to dynamic data structures. Dynamic 
data structures are those in which data is stored nonsequential ly . 
Because pointer types maintain pointers to (that is, addresses of) 
data, information that is nonsequential can be accessed. 

Scalar and structured data types are described in more detail in the 
following sections. Pointer data types are described in the TOPS- 20 
PASCAL Language Manual . 



2.2 SCALAR DATA TYPES 

Scalar data types consist of an identifier that is associated with an 
ordered set of values. A scalar value is used as an individual item; 
no part of it can be accessed separately. The number 4 is an example 
of a scalar value. No part of the number 4 can be accessed; the 
number 4 is treated as a single entity. PASCAL has two categories of 
scalar data types: standard and user defined. Standard scalar types 
are those already defined within PASCAL. User-defined scalar types 
are data types that you can define within your PASCAL program. 

Associated with each data type is a set of operations that can be 
performed on those values. For example, addition can be done on 
integers by using the addition operator (+) . 

The values of a scalar type are ordered; that is, each is either 

greater than or less than another value of the same type. Thus, you 

can compare scalar data type values of the same type. For example, 

among the integers, 2 is greater than 1 but less than 3. 

PASCAL provides the ORD function which returns the ordinal value of a 
character. The ordinal value is the numeric value of the ASCII 
representation of the character. The format is: 

ORD(x) 

The ORD function can be used on any scalar type (including 
user-defined types) except real numbers. The following example shows 
the use of the ORD function: 

Expression Returned Value 



ORD< 


'A' 


) 


65 


ORD( 


'3' 


) 


97 


OREK 


'3' 


> 


51 
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The term ordinal is used to encompass all scalar values other than 
those of type REAL; that is, the term ordinal covers integer, 
character, and Boolean values. 

The standard scalar types are: 

• INTEGER 

• REAL 

• CHAR 

• BOOLEAN 

The type INTEGER is used to represent integers. The type REAL is used 
to represent real numbers. In addition to the type REAL, PASCAL 
provides the types SINGLE and DOUBLE representing values that are 
single- and double-precision real numbers, respectively. The type 
SINGLE is identical to the type REAL. (Throughout this manual, the 
term "real type" refers to the REAL, SINGLE, and DOUBLE types 
collectively.) The type CHAR is used to represent character data. 
Character data consists of the set of 128 ASCII characters. The ASCII 
character set is shown in Appendix B. The type BOOLEAN consists of 
truth values: FALSE and TRUE. 



2.2.1 The Type INTEGER 

The type INTEGER represents whole number values ranging from (-2**35) 
to (+2**35)-l or -34359738368 to +34 359738367. You write an integer 
constant as a sequence of decimal digits; no commas or decimal points 
are allowed. A minus sign (-) before the number specifies a negative 
integer. A plus sign (+) can precede a positive integer, but is not 
requi red . 

Some examples of valid PASCAL integers are: 

452822 



-17 

+ 10 2 

-24824 

PASCAL also accepts integers in binary, octal, or hexadecimal 
notation. To use binary, octal, or hexadecimal notation, refer to the 
TOPS-20 PASCAL Language Manual for an explanation of the syntax. 



2.2.2 The Type REAL 

The type REAL represents decimal numbers. The real numbers are 
decimal numbers that range from approximately 0.14 * 10**-38 through 
3.4 * 10**38, with a typical precision of 8 decimal digits. You can 
express real constants in two ways in PASCAL: 

• Decimal notation 

• Floating-point notation 
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In decimal notation, a constant of the REAL type consists of a minus 
sign (-) if the number is negative, an integer part, a decimal point, 
and a fractional part. A plus sign (+) can precede a positive real 
number, but is not required. At least one digit must appear on each 
side of the decimal point. Examples of real constants in decimal 
notation are: 

48.25 






.5 


-0 


.8 


52 


.0 





.0 


422, 


.004 



A zero must precede the decimal point of a fractional quantity, and a 
zero must follow the decimal point of a whole number quantity. 

Floating-point notation is used to represent very large or very small 
real numbers. In floating-point notation, a constant of the REAL type 
includes a positive or negative decimal number followed by a positive 
or negative decimal integer exponent written in exponential notation. 
For example, the following real constants are written in both 
floating-point and decimal notation: 

Floating-point Decimal 

2.3E2 230.0 

0.00023E6 230.0 

10.4E-4 0.0010 

3.1415927E0 3.1415927 

4.5E9 4500000000 

-0.4E2 -40.0 

The exponent consists of the letter E, which can be read as "times 10 
to the power of", followed by a positive or negative whole number. 
PASCAL prints real numbers in floating-point notation by default. 

In floating-point notation, the position of the decimal point "floats" 
or moves, depending on the value of the exponent. For example, each 
of the following numbers is equal to 430.0: 

4.3E2 

4300E-1 

430E0 

Note that, if the decimal part of a floating-point number is a whole 
number, you can omit the decimal point (for example, 430E0). 

You can express double-precision real numbers in floating-point 
notation, replacing the letter E with the letter D. Refer to the 
TOPS-20 PASCAL Language Manual for details and examples of the type 
DOUBLE. 
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2.2.3 The Type BOOLEAN 

The type BOOLEAN represents the truth values: FALSE and TRUE. PASCAL 

orders these values so that FALSE is less than TRUE. Thus, ORD(FALSE) 

equals and ORD(TRUE) equals 1. Two kinds of operators combine to 
form Boolean expressions: 

• Relational 

• Logical 

Sections 2.5.2 and 2.5.3 explain how to form Boolean expressions that 
include relational and logical operators. 



2.2.4 The Type CHAR 

The type CHAR is used to manipulate character data. A value of type 
CHAR is a single element of the ASCII character sot. The ASCII 
character set consists of uppercase and lowercase letters, the digits 
through 9, and various special s;/mbols, such as the ampersand (&) . 
The full ASCII character set is listed in Appendix B. 

Appendix B also lists the integer value or ordinal value that 
corresponds to each element of the ASCII character set. These 
integers determine how the elements of type CHAR are ordered. For 
example, the integer 66 corresponds to the uppercase 'B' , and 98 
corresponds to the lowercase 'b'. Thus, the character 'B' is less 
than the character 'b'. (All uppercase letters have a lower ordinal 
value than lowercase letters.) 

The ORD function returns the ordinal value for any given ASCII 
character, for example: 

ORIH 'K') 

This function returns the value 75. 

To specify a character value with the ORD function, enclose the value 
in apostrophes; to specify the apostrophe character, type it twice 
within apostrophes. Examples of constants of type CHAR are: 

'A' 
'!♦;' 

'b' 

(the blank character) 
(the apostrophe) 

The elements of type CHAR are always single characters. A sequence of 
characters within apostrophes is called a character string (for 
example, 'John Doe' or 'Memorandum'); character strings are explained 
in Section 5.1.2. 
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2.2.5 User-Defined Scalar Types 

User-defined scalar types are those types that you define within a 
PASCAL program. A user-defined scalar type can be either an 
enumerated type or a subrange of any scalar type except real numbers. 

An enumerated type is an ordered set of values that you define by 
naming an identifier and the values represented by the identifier. 
The sample program Grocery_Bill in Chapter 1 defines the type Yes_No. 

T Y F- L-;. Y e s „.. N o ^■■■- < Y e s y N o ) y 

The type Yes_No has two values -- Yes and No. Details on user-defined 
types are presented in Section 3.5. 

A subrange type is a specified part of another defined type. The 
subrange is defined by specifying the lower and upper bounds of the 
subrange. For example, a subrange of integers could be defined: 

TYPE RariiSe =^ 0* ♦ 1005 



2.3 STRUCTURED DATA TYPES 

A structured type represents a collection of related data components. 
Individual components of a structured data type can be accessed and 
manipulated. PASCAL includes four structured data types: arrays, 
records, sets, and files. 

An array is a group of components of the same type. A record consists 
of one or more fields, each of which contains one or more data items. 
Records can include fields of different data types. A set is a 
collection of data items of the same scalar type, the base type. You 
can access a set as an entity, but you cannot access the set 
components as individual components or variables. A file is a 
sequence of data components that are of the same type; each component 
can be individually accessed. A file can be of variable length. 

Chapter 5 presents two structured types: the array and the record. 
For information about sets and files, refer to the TOPS-20 PASCAL 
Language Manual . 



2.4 VARIABLES 

A variable is an entity that can assume a value during program 

execution. This value can change any number of times during program 

execution. In PASCAL, every variable has a name, a type, and a value. 

The value of a variable is undefined until a value is assigned in 

either the declaration or the executable section of a program. 

You establish a variable's name and type in the variable declaration 
section of a program. The name and type are permanent characteristics 
during the program execution and therefore cannot be changed. A 
sample variable declaration section is: 

VAR Milesf Distance : INTEGER? 

Gallonsi- HPGf Liters ! REAL? 
Measure J CHAR? 
Flaa : BOOLEAN? 
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The word VAR signifies the variable declaration part of the 
declaration section. This variable section declares Miles and 
Distance as identifiers of the type INTEGER; Gallons, MPG , and Liters 
as identifiers of the type REAL; Measure as an identifier of the type 
CHAR; and Flag as an identifier of the type BOOLEAN. 

One way to assign a value to a variable is with an assignment 
sta tement : 

Distance l- 1043? 
Mile s ♦ - D i s t a ii c e ? 

Because Distance is defined, this statement assigns the value of 
Distance to the identifier Miles. The value of Miles is then defined. 

In addition to assignment statements, you can use variable 
initializations in the declaration section or input procedures in the 
executable section to assign values to variables. 

A value can be assigned in the VAR section: 

VAR Miles t INTEGER J :•= 0? 

A value can also be assigned in the executable section, as shown in 
the following example: 

READLN (Miles)? 

This example uses the READLN statement to assign a value to Miles. In 
this example, PASCAL is waiting for input from the terminal. 



2.5 EXPRESSIONS 

An expression is an identifier or group of identifiers and operators 
that PASCAL can evaluate. The identifiers can represent individual 
constants, variables, or functions, for example: 

subtotal 

The variable name subtotal is an expression that is equal to the 
current value of subtotal. 

Expressions can also be combinations of constants, variables, and 
functions, separated by operators. For example, the sample program in 
Chapter 1 includes the following expression: 

Total :~ Subtotal ■• Coupons 

This expression is equal to the result of subtracting the value of 
Coupons from the value of Subtotal. 

PASCAL uses the following types of operators for forming expressions: 

1. Arithmetic operators (such as +, -, /, **) 

2. Relational operators (such as <, >, =) 

3. Logical operators (AND, OR, NOT) 

Every expression has a type. Arithmetic operators are used in 
arithmetic expressions to produce integer or real values. Boolean 
resul ts . 
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2.5.1 Arithmetic Expressions 

An arithmetic expression calculates an integer or real value. (For 
the purposes of this section, the term "real" refers to the REAL type. 
The rules for using values of type DOUBLE in arithmetic expressions 
differ from those for type REAL. See the TOPS-20 PASCAL Language 
Manual for information on using the type DOUBLE in expressions.) 

An expression can be an integer or real constant, variable, or 
function. Alternatively, it can be formed by combining numeric 
constants, variables, and functions with one or more arithmetic 
operators (shown in Table 2-1). For example, the following expression 
consists of two identifier names and the division operator (/): 

Miles / Gallons 
This expression equals the value of dividing Miles by Gallons. 

Table 2-1: Arithmetic Operators 

Meaning 

Add A and B 

Subtract B from A 

Multiply A by B 

Raise A to the power of B 

Divide A by B 

Divide A by B and truncate the 
resul t 

Produce the remainder after 
dividing A by B; B must be greater 
than 

REM A REM B Produce the remainder after 

dividing A by B (can be used when 
B is <= 0) 

The addition, subtraction, multiplication, and exponentiation 
operators (+, -, *, and **) work on both integer and real values. 
They produce real results when applied to real values, and integer 
results when applied to integer values. If the expression contains 
values of both types, the result is a real number. 

The division operator (/) can be used on both real and integer values, 
but it always produces a real result. 

The DIV operator can be used only with integer values and always 
produces integer results. DTV divides one integer by another and it 
drops any remainder. 



Operator 


Example 


+ 


A+B 


- 


A-B 


* 


A*B 


** 


A**B 


/ 


A/B 


DIV 


A DIV B 


MOD 


A MOD B 
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The MOD and REM operators return the remainder after dividing one 
operand by another. Both operators can be used only with integer 
values and always produce integer results. The MOD operator can be 
used only when the divisor is greater than 0; it always returns a 
positive result. The REM operator can be used whether the integers 
are equal to, less than, or greater than 0. The REM operator also 
retains the sign of the dividend. 

Table 2-2 shows possible combinations of arithmetic operands and 
operators and the type of the result. 

Table 2-2: Result Types for Arithmetic Expressions 

Operator Group Operand Result Example Result 

Types Type 
(1) (1) 



4- _ * * * 


I 


op 


I 


I 


4 + 5 


9 


(addi tion , 


R 


op 


I 


R 


4,2.** 2 


1 .764E + 01 


subtraction , 














mul tipl ica tion , 


I 


op 


R 


R 


4*4.5 


1 .BOOEOl 


exponentiation) 














(2) 


R 


op 


R 


R 


2.2 - 40.12 


-3.792E+01 


/ 


I 


op 


T 


R 


4/2 


2.nnoE+oo 


(d ivision) 


R 


op 


T 


R 


3 . 2/2 


1 .6nnE+no 




I 


op 


R 


R 


4/2.14 


1 .869E + nO 




R 


op 


R 


R 


3.2/2.2 


1.455E+00 


DIV, MOD, REM 


I 


op 


I 


I 


42 DIV 5 


8 


(division with 










4 DIV 5 





truncation , 














r ema inder) 










32 MOD 5 
-4 REM 3 


2 

-1 



(1) The symbols "I" and "R" stand for INTEGER and REAL, respectively; 
the symbol "op" stands for "operator." 

(2) When you raise an integer to the power of a negative integer you 
can get unexpected results. Refer to the TOPS-20 PASCAL Language 
Manual for the rules of how PASCAL evaluates expressions containing 
negative integer exponentiation. 
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2.5.2 Relational Expressions 

A relational expression tests whether a specified relationship between 
two values is valid. Tt returns TRUE if the relationship holds and 
FALSE otherwise. For example, to test whether the variable MAX is 
greater than the value 100, you can use the following expression: 

MAX > 100 

A relational expression consists of two scalar or character string 
variables or expressions (such as MAX and 100 above) , separated by one 
of the relational operators listed in Table 2-3. The operands must be 
of the same type; you compare characters with characters (single or 
strings) and numeric values with numeric values (integer or real) . 

Table 2-3: Relational Operators 

Operator Example Meaning 

A = B TRUE if A is equal to B 

<> A <> B TRUE if A is not equal to B 

> A > B TRUE if A is greater than B 

>= A >= B TRUE if A is greater than or equal to B 

< A < B TRUE if A is less than B 

<= A <= B TRUE if A is less than or equal to B 



With character comparisons, the relationship is determined by the 
ordinal values in the ASCII character set (Appendix B) . 

Note that in the 2-character operators (<>, >= and <=) the operators 
must appear in the specified order and cannot be separated by a space. 

Relational expressions are often used as tests in PASCAL'S conditional 
and repetitive statements (see Sections 6.3 and 6.4, for example: 

IF Measure = 'si' THEN 
BEGIN 



END? 

The statements within BEGIN and END are executed only if the 
expression (Measure = 'g') evaluates to TRUE. 

As another example, suppose you want to compare the values of two 
integer variables. To determine whether a variable named New_Int is 
greater than or equal to a variable named Large_Int, you can use the 
following expression: 

New_.Int >= Larde-Ini 

If Large_Int holds the value 64 and New_Int is 72, the expression 
evaluates to TRUE. 
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Because the elements of scalar types are ordered, you can form 
relational expressions using scalar constants as operands. For 
example, the following expressions are valid: 

Expression Resul t 

'C < 'R' TRUE 

true:. > false;: true 

5 :-- 4 FALSE 

Any expression that contains relational operators or logical operators 
is called a Boolean expression because it produces a Boolean result. 



2.5,3 Logical Expressions 

You can form logical expressions by combining Boolean values and the 
logical operators listed in Table 2-4. Logical expressions return a 
value of type BOOLEAN. 

Table 2-4: Logical Operators 

Operator Example Result 

AND A AND B TRUE if both A and B are TRUE 

OR A OR B TRUE if either A or B is TRUE, or if 

both are TRUE 

NOT NOT A TRUE if A is FALSE, and FALSE if A is 

TRUE 

The AND and OR operators combine two Boolean values to form a logical 
expression. The NOT operator reverses the truth value of an 
expression; so that if A is true, NOT A is false, and vice versa. 

The following examples show logical expressions and their Boolean 
resul ts . 

Expression Result 

(4 > 3) AND (18 = 3 * 6) TRUE 

<3 > 4) OR (18 == 3 * 6) TRUE 

NOT (4 <> 5) FALSE 

Boolean variables and functions can be operands in logical 
expressions, for example: 

Fl3^ AND ODD(I> 

Suppose Flag is a Boolean variable. ODD(I) is a function that returns 

TRUE if the specified integer is odd and FALSE if the integer is even. 

Both operands, Flag and ODD(I) , must be true for the expression to 
return a value of TRUE. 
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Another example using a Boolean expression is: 

(Int<:>_.Read ^■■- 10) OFi; EOF (INPUT) 

The EOF(TNPUT) function returns TRUE if the end of the file INPUT has 
been encountered. If either or both of the operands in this 
expression are true, the expression returns a value of TRUE. 



2.5.4 Precedence Rules for Operators 

When evaluating expressions containing more than one operator, PASCAL 
follows rules of precedence to determine the order in which operations 
are to be performed. An operation with higher precedence is evaluated 
before an operation with lower precedence. Consider the following 
expression : 

A/B + 3*4 

The division operation is performed first; the multiplication 
operation is performed second; and the addition operation is 
performed third. For example, if A equals 4 and B equals 2, A/B is 
evaluated to return 2.0. Then, 3 is multiplied by 4 to return 12. 
Finally, the results of these calculations are added together to 
obta in 14.0. 

You can combine operators to form complicated expressions. For 
example, if all of the operands are integer, the following expression 
is val id : 

A 4- 5 DIV 2 * 4 ~ C * 3 

If the current values of A and C are 3 and 8, respectively, this 
expression evaluates to -13. That is, it is evaluated as if it were 
wr i tten : 



A jr ( (5 DIV 2) * 4) 



(C * 3) 



Table 2-5 lists the order of precedence of arithmetic, relational, and 
logical operators, from highest down to lowest. Those operators on 
the same line in the table have equal precedence. 



Table 2-5: Precedence of Operators 



Operators 



Precedence 



NOT 
** 

*, /, DIV, MOD, REM, AND 
+, ~, OR 



Highest 



Lowest 
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In addition, the following rules apply: 

1. Expressions enclosed in parentheses are evaluated first 
regardless of the precedence of operators. 

2. Two operators of equal precedence (such as DIV and *) are 
evaluated from left to right. 

The following expressions are evaluated differently, because in the 
second expression parentheses enclose an addition operation. 

Expression Result 

4 f a ** 2 i;iH^ 7 13 

(4 f 8) ** 2 IJIV 7 20 

In the first expression, PASCAL performs the exponentiation (**) and 
integer division (DIV) operations before the addition operation (+) . 
In the second expression, the parentheses force PASCAL to add 4 and 8 
first; then the result (which is 12) is squared to obtain 144; and 
finally the DIV operation is performed to obtain 20. 

You should use parentheses when you combine relational and logical 
operators because the logical operators have higher precedence than 
the relational operators. For example, in the following expression, 
the logical operator AND has the highest precedence: 

A < X AND B =0- Y t X 

PASCAL attempts to evaluate this expression as if it were written: 

A < (X AND D) <::••: Y f :l. 

An error occurs because X and B are not of type BOOLEAN. To insure 
that the expression is evaluated as you intended, you must enclose the 
relational expressions in parentheses as follows: 

(A < X) AND (B <>'= Y +1) 
Similarly, you must include parentheses in the following expression: 

NOT (4 <> 5) 
Without the parentheses, the expression is evaluated as: 

(NOT 4) <> 5 

Because 4 is not a Boolean value, PASCAL generates an error. 

Parentheses also help to clarify an expression. A long expression is 
easier to read if it contains parentheses indicating which operations 
are to be performed first, for example: 

A + ((5 DIV 2) * 4) "- (C * 3) 

The parentheses eliminate any confusion about how the expression is to 
be evaluated . 
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CHAPTER 3 
DECLARATIONS AND DEFINITIONS 



Every data item used in a PASCAL program must either be declared in 

the program or already be defined by PASCAL. All declarations and 

definitions must appear in the declaration section. The declaration 
section can contain the following parts or sections: 

1. LABEL -- declares labels for use by the GOTO statement 

2. CONST -- defines symbolic constants 

3. TYPE -- creates user-defined types 

4. VAR -- declares variables and their types 

5. VALUE -- initializes variables 

6. PROCEDURE and FUNCTION — declare routines 

These sections are optional in a program. However, when they are 
included, they must appear in the order listed above. Furthermore, 
each section (except PROCEDURE and FUNCTION) can appear only once in a 
declaration section. Thus, each block uses the following reserved 
words only once: LABEL, CONST, TYPE, and VAR. A block can be a 
program, a function, or a procedure. 

All of these sections introduce symbo'lic names that represent data 
items. Section 3.1 describes the use of symbolic names and 
identifiers; Section 3.2 explains the CONST section; Section 3.3 
describes the TYPE section; Section 3.4 describes the VAR section; 
and Section 3.5 describes how to create user-defined scalar types. 
The LABEL and VALUE sections, along with the GOTO statement, are 
described in the T OPS-20 PASCAL Language Manual . 



3.1 SYMBOLIC NAMEIS 

Symbolic names are the words used in a PASCAL program: some symbolic 

names are already defined within the PASCAL language; other symbolic 

names can be created by the user. For example, the following line of 
a PASCAL program contains three symbolic names: 

VAR Ans J Yes„No? 

The name VAR is defined by PASCAL; the variable name Ans and the type 
name Yes_No are created by the programmer. 



3-1 



DECLARATIONS AND DEFINITIONS 

There are three classes of symbolic names in PASCAL: 

1. Reserved words 

2. Predeclared identifiers 

3. User identifiers 

Section 3.1.1 describes reserved words and predeclared identifiers. 
Section 3.1.2 describes how to form user identifiers. 

3.1.1 Reserved Words, Semireserved Words, and Predeclared Identifiers 

Reserved words, semireserved words, and predeclared identifiers are 
defined by PASCAL and have a special meaning for the compiler. 

PASCAL sets aside certain reserved words that cannot be redefined. 
Some of the reserved words are: 



AND 


ELSE 


NOT 


THEN 


ARRAY 


END 


OR 


TYPE 


BEGIN 


FILE 


PROCEDURE 


UNTIL 


CONST 


FUNCTION 


PROGRAM 


VAR 


DIV 


IF 


RECORD 
REPEAT 


WHILE 



Appendix A contains a complete list of the PASCAL reserved words. 
Reserved words in this text are printed in uppercase letters. 

In PASCAL, the following words are considered semireserved words: 

MODULE 
OTHERWISE 
REM 
VALUE 

Like reserved words, PASCAL also predefines these semireserved words. 
However, unlike reserved words, you can redefine these words for your 
own purposes. If you redefine them, they can no longer be used for 
their original purpose within the scope of the block in which they are 
defined . 

PASCAL declares certain identifiers to name types, constants, 
procedures, and functions. In contrast to reserved words, you can, if 
necessary, redefine predeclared identifiers for another purpose. 

If you choose to redefine these identifiers, you should do so with 
caution. Once a predeclared identifier is used to denote another 
item, it can no longer be used for its original purpose within the 
same program. For example, it is valid to create an identifier named 
COS within a program. However, once COS is redefined, it would no 
longer perform the cosine function within the program. 
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The predeclared identifiers that have been mentioned so far in this 
text include: 



BOOLEAN 

CHAR 

COS 

DOUBLE 

EOF 

FALSE 



INPUT 

INTEGER 

OUTPUT 

READ 

READLN 



REAL 

SINGLE 

TRUE 

WRITE 

WRITELN 



Appendix A presents a complete list of PASCAL predeclared identifiers. 



3.1.2 User Identifiers 

User identifiers are the names you create to represent programs, 
constants, variables, procedures, functions, and user-defined types. 
User identifiers are all the names in a PASCAL program that are not 
reserved words, semireserved words, or predeclared identifiers. 

When forming an identifier, you must follow PASCAL syntax rules. An 
identifier can be a combination of uppercase and lowercase letters, 
digits, dollar sign ($) characters, and underscore (_) characters, 
with the following restrictions: 

1. Every identifier must start with a letter, an underscore, or 
a dollar sign; that is, with any printing character other 
than a digit. 



Every identifier 
characters . 



must be unique within its first 



31 



3. An identifier must not contain any blanks. 

4. Uppercase and lowercase letters are considered equivalent. 

Although identifiers can be any length, PASCAL only recognizes the 
first 31 characters. Therefore, two different identifiers that have 
the same first 31 characters are interpreted as the same identifier. 

Because you can use any letter or digit in identifiers, you can easily 
create names that indicate what the data item represents. This tends 
to make your programs easier to read and understand. For example, 
although the word Slug is a valid identifier, it would not be clear if 
it were used to represent the result of a square root calculation. An 
identifier like Square_Root, on the other hand, indicates what kind of 
data that identifier holds. 

Some examples of valid identifiers in PASCAL are: 

Miles 
Liters 
M3th_Scores 
FICA„Tax 

Examples of invalid identifiers are: 



ARRAY 
lihore 
Psckasle* 



(a reserved word) 

(begins with a digit) 

(contains the special character #) 
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The following two identifiers are valid according to the syntax of 
PASCAL. However, they will be treated as the same identifier because 
they are not unique within their first 31 characters: 

N e w ... .1 ri c' o r p o r a t e d .._ S '.-.i s t e m _.. M b n f> ^i e r .... F" u n c t .1 o ri s 
N e w .... I ri c o r r- o r a t e d .... S 'j s t e nri _.. M b n B<^i&r .... R e s o u r c: e s 



3.2 CONSTANT DEFINITIONS 

You can define identifiers to represent constant values in the CONST 
part of the declaration section. Defining constants up front makes 
your program easier to read and to modify. These identifiers and 
their corresponding values are called symbolic constants. For 
instance, suppose a program that adds apples to oranges uses the 
number 100 to indicate the maximum number of fruit that can be summed. 
Instead of using the number 100 in the program, you can define an 
identifier that represents 100 as follows: 

CONST Max.,J- ru:i.t ^- 100? 

The identifier Max__Fruit is more descriptive of the constant's use in 
the program than the number 100, thus making the program easier to 
read . 

You can define any number of symbolic constants in the CONST section, 
but the reserved word CONST can appear only once. 

The format of the CONST definition is: 

CONST constant name = value; 

[[constant name = value;...]] 

The constant name can be any valid user identifier. The value can be 
an integer, a real number, a character, a character string (see 
Section 5.1.2), a Boolean constant, or another symbolic constant. 
Successive constant definitions must be separated with semicolons. 

The type of a symbolic constant is the type of its corresponding 
value. For example, Max_Fruit shown above is of type INTEGER because 
100 is an integer. 

Once you define a symbolic constant, the constant identifier can be 
used in place of the value later in the program. You can change the 
value of a symbolic constant simply by changing the declaration in the 
CONST section. However, the identifier represents a constant value 
that cannot be changed with subsequent assignment statements or input 
procedures . 

For example, to define a symbolic constant with the value of 25 as the 
number of students in a class, you can use the following constant 
definition : 

CONST Class„Size == 25? 

You can now use the identifier Class_Size to represent the number 25 
anywhere in your program. 
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The use of symbolic constants generally makes a program easier to 

read, understand, and modify. If, in the example above, the size of 

the class is 28 the next term, you can simply modify the CONST 
definition as follows: 

CONST Class....Size ^^^ 28 5 

Using a constant this way is easier than changing every occurrence of 
the value in the program. 

Another example of a constant definition section is: 

CONST Rain - TRUE', 
Year ■■■■■■■ 20015 
Pi ••== 3 » 1415927 5 
CoiTiiTia =- ' y ' 5 

Country ~ 'United States'? 
CitizenshiF -- Country? 

This CONST section defines six constant identifiers. The identifier 
Rain is equal to the Boolean value TRUE. The identifier Year 
represents the integer 2001, and the identifier Pi represents the real 
number 3.14]5927. The identifier Comma represents the character',', 
and the identifier Country represents the string United States. 
Characters and strings must be enclosed in apostrophes in the CONST 
section. The identifier Citizenship represents the symbolic constant 
Country and thus represents a character string. Note that, since 
Citizenship represents a symbolic value and not a string, apostrophes 
are not used . 



3.3 TYPE DEFINITIONS 




The format is: 

TYPE type name = type definition; 

[type name = type definition;...]] 

Each type name is a user identifier that denotes a type. The type 
definition specifies any valid PASCAL type. The type definition can 
be either an enumerated type or a subrange type. 

An enumerated type lists each of the values associated with the type. 
The following example declares an enumerated type in the TYPE section; 

TYPE Days ~ (Sunr Mony I'uer Wedr Jhur Friy Sat) 5 

In this example, the type Days includes the identifiers Sun through 
Sat. These are ordered from left to right; that is, the value on the 
left is less than the value to its right. Enumerated types are 
ordered starting at zero. In this example. Sun < Mon. 
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A subrange type uses a subset of a type that is already defined, 
either by PASCAL or within your program. The subrange type is defined 
by specifying the lower and upper limits of the subrange. The example 
below shows a subrange type: 

TYPE Scores ^ 0, ^lOO? 
Work ••" Mon* ♦F"ri. r 

In this example. Scores includes the values of through 100, and Work 
includes the values Mon through Fr i . 



3.4 VARIABLE DECLARATIONS 

Every variable in a PASCAL program must be declared before it is used. 
A variable declaration creates a variable and associates it with an 
identifier and a type. A variable's value is undefined until a value 
is assigned in the declaration section or in the executable section. 

The format of the VAR section is: 

VAR variable name [[, variable name . . . ]] : type [I:=value]] 
[[variable name | , variable name . . . ]] : type;...]] 

The variable name can be any valid user identifier. The type can be 
any of the predefined scalar types (REAL, SINGLE, DOUBLE, INTEGER, 
CHAR, or BOOLEAN), an identifier previously defined in the TYPE 
section, or a type definition as outlined in Section 3.3. You also 
have the option of initializing a variable in the VAR section. Note 
the last portion of the format. 

You declare variables in the VAR section of a program, for example: 

VAR Miles : INTEGEFi? 

Gallons^ MPGf Liters : RE:AL; 
Measure ♦ CHAR? 
Anst Yes_Nor 

This VAR section declares one variable (Miles) of the INTEGER type; 
three variables (Gallons, MPG , and Liters) of the REAL type; one 
variable (Measure) of the CHAR type; and one variable (Ans) of type 
Yes_No. Note that you can declare multiple variables in the VAR 
section, but the reserved word VAR can appear only once. 

More examples of variable declarations are: 

VAR Error_.Fla£{» Test J BOOLEAN? 
Initial : CHAR? 
Costr Retail _Ft : REAL? 
County Iterations^ I» J t INTEGER? 

This VAR section declares the variables Error_Flag and Test of type 
BOOLEAN; the variable Initial of type CHAR; the variables Cost and 
Retail_Pr of type REAL; and finally, the variables Count, Iterations, 
I, and J of type INTEGER. Section 3.5 describes how to declare 
variables of user-defined types. Chapter 5 shows how to declare array 
and record variables. 
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3.5 USER-DEFINED SCALAR TYPES 

PASCAL provides the predefined scalar types -- INTEGER, REAL, SINGLE, 
DOUBLE, CHAR, and BOOLEAN. In addition, PASCAL allows you to create 
user-defined scalar types, for example: 

TYPE Yei;i....No ■■■■■■ (Yesc No) 5 

This user-defined scalar type called Yes_No has two values. Yes and 
No. In this way, it is similar to the predefined type BOOLEAN which 
has two values, FALSE and TRUE. 

There are two classes of user-defined scalar types: 

1 . Enumerated 

2 . Subrange 

To define an enumerated type, you list the type's values, separated by 
commas, in parentheses. For example, the type definition for Yes_No 
is : 

(Yesy No) 

To define a subrange type, you specify the bounds of an interval of an 
existing ordinal type. For example, the following is a subrange of 
the type INTEGER: 

0» ♦.1.00 

This definition specifies a type consisting of the integers from to 
100. 

You can define a user-defined scalar type in either of two sections of 
the declaration section: 

1. The TYPE section 

2. The VAR section 

When you define an identifier in the TYPE section, you associate a 
type name with a set of values. In the example above, the identifier 
Yes_No is the name of a type in the same way that the identifier CHAR 
is the name of a type. You must still use the VAR section to declare 
a variable of the type defined in the TYPE section, for example: 

^.^AR Ans J Y€?s...NoJ 

Because Yes_No is a type that was defined in the TYPE section, you can 
define more than one variable of the type, as follows: 

VAR Ansr fi^nsxlf Aris3 i Yes„_No? 

When you define a type in the VAR section, you associate one or more 
variable names v/ith the set of values of the type. Thus, the 
following defines a variable of a subrange type: 

VAR Percentasse : 0».100? 

The variable Percentage can take on the values through 100. 
Percentage is not a type name; it is a variable name. 
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Some examples are shown below: 

Example 1 

T Y F' E. n a -{ s .... G f .... Year ■■■■^ 1 , o 3 6 6 y 
Alphabet ■■■■■■■ '■ A ' . . ' Z ' ? 
IVi. <-{;Lts ■■-■ ' 0' <, . "9 ' V 
J B \"\ ij a T 'r.! .... J e iri i^' s ■■■■ ■- 20, » f A ? 

UAR Daws,... Off : D3^:^s...0f ... Yea r 5 
Initial t Alphabet? 
F^atind : Dl<;^its» 
A V e T^ (!) <:!i e J a n i..i a r '-.-.i I ... I a n l\ a r sj .... J e in p s P 

The TYPE section defines four subrange types: Days_Of_Year , Alphabet, 
Digits, and Janua ry_Temps . Note that, for an integer subrange type, 
the limits can include a leading minus sign (-) or plus sign {+) . The 
VAR section declares the variable Days_Off, which can assume the 
integer values 1 through 3*^6; Initial, which can assume the character 
values 'A' through 'Z'; Rating, which can assume the character values 
'0' through '9'; and Average_January , which can assume the integer 
values -20 through +60. 

Example 2 

TYPE' l.ia'.:fs "- (Suny horu' Tuex Wed y Thur Fr:i. ? Sat)? 

C o 1 c) r^ s ■■-■ ( R e d y Y e '] I o w y B 1 "..i e v 1^ a ri .*•? e y F' i..i i' p 1 e y (;) r e e i-i ) ? 
F" r^ :i. in a v \:i .... C o 1 o v s - R e d ♦ ♦ h 1 i..i e y 

VAR Week : Dav.isy 

(:) p e c t r IJ iTi { C o 1 c) i^ s 5 
F" 3 i ri t s I F" r J. in a r y .... C o 1 o t^ s y 
\AotV. -.. D a y s t M o \~\ * ♦ F" r^ i ? 
F"in3.1 Grade J ' A " . , ' E: ' ? 

The TYPE section defines the types Days, Colors, and Pr imary_Colors . 
The type Pr imary_Colors is a subrange of the enumerated type Colors. 
The VAR section declares variables of the types Days, Colors, and 
Pr imary_Colors . In addition, the variable Work_Days is declared to be 
of the subrange type Mon..Fri, and the variable Final_Grade is 
declared to be of the subrange type 'A'..'E'. 
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CHAPTER 4 
READING AND V/RITING DATA 



To enter data into a program, the program must perform input 
operations. To display the results of a program's actions, the 
program must perform output operations. This chapter describes 
TOPS-20 PASCAL terminal input and output (I/O); that is, how to read 
and write data interactively from a terminal. 

The TOPS-20 PASCA L Language Manual contains additional information on 
PASCAL I/O. Sp^ecif ically , it explains the use of input and output 
procedures on files other than the predeclared files INPUT and OUTPUT. 

This chapter covers the following topics: 

• The predeclared text files INPUT and OUTPUT 

• The predeclared READ and READLN procedures for data input 

• The predeclared WRITE and V/RITELN procedures for data output 

• The predeclared functions EOF and EOLN 



4.1 THE PREDECLARED TEXT FILES INPUT AND OUTPUT 

Text files are the basis of input and output, and are passed as 
program parameters to a PASCAL program. Text files represent an 
input/output device, such as a terminal or a line printer. 

You perform I/O operations on file variables. A variable of the 
structured type FILE is a sequence of data items, called components, 
that have the same type. The structured type FILE is described in 
more detail in the TOPS-20 PASCAL Language Manual . 

PASCAL predeclares two standard file variables as text files: INPUT 
and OUTPUT. A text file is a file that has components of type CHAR 
and that is divided into lines. The I/O procedures and functions 
explained in this chapter perform operations on either INPUT or 
OUTPUT, by default. 

PASCAL associates the predeclared file variables INPUT and OUTPUT with 
your terminal, by default. That is, your terminal is treated as the 
file INPUT (for reading data) and the file OUTPUT (for writing data). 
The use of INPUT and OUTPUT is necessary to make your program 
interactive . 
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Because INPUT and OUTPUT are predeclared by PASCAL, you must not 
declare them in the declaration section; however, you must specify 
them in the heading of each program that uses them. For example, for 
an interactive program that accepts input data and writes output data 
(such as the example in Chapter 1) , you must specify both files, as 
f ol lows : 

)••' R G R AM G v^ o c e r^ -a .... B i 1 1 ( 1 N P I. J T' c C) LI T F U 1 ) ? 

You can specify the files in either order. 

Some programs require no input from the terminal. For instance, a 
program that prints a table of the ASCII characters needs only the 
output capability. Its heading might be: 

r-' R G R A M F' T^ i r 1 1 ... A S C 1 1 ( C) l.J I i- ' U T ) ? 

This program heading indicates that the name of the program is 
Print_ASCII and that the program uses the file OUTPUT. 

You can access only one component of a file at a time. Associated 
with every file is a file position that determines which component can 
be currently accessed. You can imagine a file's position as a window 
that moves, through which you can see only one component at a time. A 
file's current position is the position immediately following the file 
component that was last read or written. 

On TOPS-20, you can alter the search path for the INPUT and OUTPUT 
files without rewriting your programs. You may want PASCAL to obtain 
input from a file in your disk area (or some other place) rather than 
from the terminal. Or, you may want PASCAL to write the data to a 
disk file rather than to the terminal. You have two options: you can 
rewrite the PROGRAM heading, or you can use the TOPS-20 DEFINE 
command . 

The TOPS-20 DEFINE command defines a logical name. A logical name is 
a descriptive word used to establish a search route for locating files 
in other directories or on other structures. When you define a 
logical name, you tell the system where, and in which order, to search 
for a file. The two logical names you use are PASIN: for INPUT and 
PASOUT: for OUTPUT. 

To define a logical name, type the following to the TOPS-20 operating 
system : 

(3DEF1NE-: PASIN:f ilenameGID 

Because PASCAL associates the logical name PASIN: with the INPUT in 
your program, PASCAL will search for input from the file you specify. 

Likewise, you can direct PASCAL to output data to some location other 
than your terminal by specifying the following: 

(3DEFINE PASOUTtf ileri3iTie(:iiD 

To remove a logical name you have defined, give the DEFINE command but 
do not type any definition. After the DEFINE command, type only the 
logical name, and press RETURN, for example: 

©DEFINE PASIN :GiD 

For more information on logical names and the DEFINE command, refer to 
the TOPS-20 Users Guide. 
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4.2 READING DATA 

To submit data for a program to process, you need procedures that 

perform input operations. The use of input procedures allows a 

program to process different sets of data each time it runs. PASCAL 

provides the REAE' and READLN procedures for data input. 

By default, the READ and READLN procedures get data from the 

predeclared file variable INPUT. The READ procedure reads values from 

a file and assigns them to the variables that are specified as read 

parameters. The READLN procedure performs a READ operation, then 
moves to the beginning of the next line of the input file. 



4.2.1 The READ Procedure 

The READ procedure reads data items from the file variable INPUT and 

assigns the values that are read to specified variables. Thus, you 

can use a READ procedure to give values to variables, as shown in the 
following example: 

READ (Nex !....(:: ha r) 5 

This procedure call causes a character to be read from the terminal 
and assigned to the character variable Next_Char. 

The general format of the READ procedure, when using the default file 
variable INPUT, is: 

READ ( [[input,]] variable d , variable ... ]] ); 

Because the file variable INPUT is the default, you can omit its name 
from a procedure call to READ. 




The READ procedure reads values from the terminal until it finds a 
value for each variable that is specified as a parameter. The first 
value found is assigned to the first variable in the list; the second 
value is assigned to the second variable, and so on. 

Each variable must have the same type as the corresponding value being 
read, with the exception that an integer value can be read into a real 
variable. In the example of the READ procedure below, the variables 
could be of the types REAL, INTEGER, and INTEGER, respectively: 

R E A D ( T e m p y A iS e y W e i <^ h t ) ? 

The following values could be read into the specified variables: 

98,6 11 75 

The variable Temp is assigned the value 98.6, Age is assigned the 
value 11, and Weight is assigned the value 75. 

Note that, in the READ procedure shown above, each input value is 
separated from the next by a space. Numeric data items, typed at the 
terminal, must be separated by one or more spaces or tabs, or put on 
new lines. Because the space and tab are values of type CHAR, this 
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rule does not apply to character data. If a READ procedure specifies 
a character variable and encounters a space or a tab, the space or tab 
is read and assigned to the character variable. 

As the result of a read operation, the value of the component in the 
current file position is assigned to a variable; then the file 
position is advanced one component. 

Example 1 

Statements Input 

READ (XyY)r 12 3 4 

READ (A?B)y 

These two READ procedures read the values on the input line into the 
variables X, Y, A, and B. After they are executed, the variable X 
equals 1; Y equals 2; A equals 3; and B equals A. The file 
position is advanced to the position that immediately follows the 
val ue 4 . 

Example 2 

READ (Months Date^ Year)? 

If each of these variables is of type INTEGER, the following are valid 
input values: 

2 14 1984 

After the READ procedure is executed. Month equals 2; Date equals 14; 
and Year equals 1984. Note again that you can separate values to be 
input with any number of spaces. The values also can appear on 
different lines as follows: 



14 1984 

In this example. Month is assigned the value of 2; Date is assigned 
the value of 14; and Year is assigned the value of 1984. The READ 
statement reads past the EOLN mark and assigns the next input values 
to the next variables. 

Example 3 

READ (Char._M3r)f 
IF Ch3r„.V3r <> ' ' THEN 
Count J= Count f 1? 

Assume that Char_Var is a variable of type CHAR and that this segment 
of code is within a repetitive loop. This program fragment counts the 
number of characters other than the space character on a line. The 
READ procedure reads a character and assigns it to Char_Var. If the 
character is not a space (' ')/ the variable Count is incremented by 
one. If the character is a space, the assignment statement (Count := 
Count + 1;) is skipped. 

When reading text files into string variables, spaces are assigned to 
the string variables when the EOLN mark is encountered. EOLN is then 
TRUE. A READLN statement must be used in this case to p>ass the EOLN. 
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4.2.2 The READLN Procedure 

An alternative form of the READ procedure is the READLN procedure. 
The READLN procedure performs a READ, and then positions the file 
position pointer at the beginning of the next line, for example: 

F^EADLN (M:i. les)y 

This READLN procedure reads a value into the variable Miles, then 
positions the file position pointer at the beginning of the next line. 
Thus, any remaining data on the input line is ignored. 

In contrast to the READ procedure, the file position pointer is 
advanced to the first component of the next line at the end of the 
READLN procedure. 

The format of the READLN procedure using the default file INPUT is: 

READLN ( [[input,]] [variable]! d ,var iablej . . . ) ; 

After a value is read for each variable that is specified as a 
parameter, the rest of the current line is discarded; and the file 
position is set to the first component of the next line. 

As shown in the format description, the variable list in the READLN 
procedure is optional. Therefore, you can use READLN as follows: 

Fi:EADLN5 

This statement advances the file position pointer to the beginning of 
the line after the current line without reading any values. 

Example 1 

Statements Input 

READLN (XyY)y 12 3 4 

REIjADLN <A»B)J 7 22 18 12 

The values assigned in this example are: 

X - 1 Y - 2 



A - 7 B 



= oo 



The first READLN procedure reads the values 1 and 2 and assigns them 
to X and Y, respectively. Then, the file position pointer is advanced 
to the beginning of the next line, and the remaining numbers on the 
first line are ignored. The second READLN procedure starts reading 
data from the second line of the input file and assigns the value 7 to 
A and the value 22 to B. If these READLN procedures were both READ 
procedures, only the first line of input would be read. 

Example 2 

Statement Input 

READLN (XrYfZ) 1 100<E0LN> 

1000 1001<E0LN> 

The values assigned in this example are: 

X - 1 
Y = 100 
Z = 1000 
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This procedure call assigns 1 to X, 100 to Y, and 1000 to Z. Then, 
the file position pointer is advanced to the beginning of the line 
following the values 1000 and 1001. Note that the READLN procedure 
reads across lines until a value is found for each specified variable, 
and moves to the next line only after those values are assigned to the 
variables. Thus, in this example, when there are no more values on 
the line containing 1 and 100, the value 1000 from the next line is 
read and assigned to the variable Z. 

Example 3 

READ <(::har....Var) P 
IF" EOLN THEN READLN? 
IE Char.... "Jar <> ' ' THEN 
Count J "•■ Courit \ 1 y 

The following shows the value of Char_Var after reading the sample 
input : 

I nput VaJ ue of Char Var 

this <:E(;)LN> 4 

this is <E0LN> 11 

a test <EOLN> 

This example shows a code fragment similar to the one used in Example 
3 in Section 4.2.1. Included also in this example is a READLN 
statement. This program fragment counts the number of characters 
other than the space character in a file. The READ procedure reads a 
character and assigns it to Char_Var. If the character read is the 
EOLN, then the file position pointer is moved past the EOLN mark and 
positioned at the beginning of the next line. If the character is not 
a space, the variable Count is incremented by one. If the character 
is a space, the assignment statement (Count := Count + 1;) is skipped. 



4.3 WRITING DATA 

To display the results of a program's actions, the program must 
perform output operations. PASCAL provides the WRITE and WRITELN 
procedures for data output. By default, the WRITE procedure writes 
data onto the file OUTPUT, which is associated with your terminal. 
The WRITELN procedure performs the WRITE procedure, then positions the 
file position pointer at the beginning of a new line. 
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4.3.1 The WRITE Procedure 

By default, the WRITE procedure writes data into the file variable 
OUTPUT. It has the general form: 

WRITE ( [[output,]] print list); 

Because OUTPUT is the default, you can include or omit the name OUTPUT 
in the WRITE procedure call. The print list specifies write 
parameters, that is, the values to be written. It can contain: 

• Expressions of any scalar type 

• Character strings enclosed in apostrophes 

Multiple parameters in the print list must be separated by commas. 

To print the value of a symbolic constant or a variable, you need to 
specify only the variable name. You can print the result of an 
arithmetic, relational, or logical expression by specifying the 
expression in the print list. In addition, you can use the WRITE 
procedure to print a character string to explain the output. Examples 
of WRITE procedures with variable. Boolean expression, and string 
parameters are shown below. For each output line, a blank sign ( ) 
indicates that the corresponding WRITE procedure prints a space. 

Statement s Output 

WRITE (Tnt^^ar)? 12 

W R I T IE ( ( 2 :> 3) A N ri r- l a <-i ) y I'" A I... S E. 

W R T T i;; ( ' 1 1-1 1 V 3 r^ e a i..i a 1 s ' » :i: ri t U a rO ? 1 1". i K> a v e g u a :i. s 1 2 

Each output line is shown above as PASCAL would print it. PASCAL 
automatically provides spacing for various kinds of output. Thus, in 
the first two examples, the output values (that is, the value 12 and 
the value FALSE) are printed with a default number of leading spaces. 
You can control the spacing by specifying the field width as explained 
below. 

The third example shows how to print a character string and a value. 
A character string is a sequence of characters enclosed in apostrophes 
(in this example, 'IntVar equals') and separated by commas. The value 
12 is printed with a default number of leading blanks. 

After a WRITE procedure is executed, the file position pointer is 
positioned immediately after the last value that was written. Thus, 
if the three WRITE procedures shown above appeared in three successive 
program statements, all of the output would appear on the same line. 

Field Width 

The field width is the minimum number of characters that will be 
written to the terminal. You can specify a minimum field width for 
each possible write parameter in the print list. However, without the 
field width specification, PASCAL uses the default values listed in 
Table 4-1. 
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Table 4-1 



Default Value for Field Width 



Type of Variable 



Number of Characters Printed 



INTEGER 

REAL 

DOUBLE 

BOOLEAN 

CHAR 

enumerated 

s t r i ng 



in 

16 

2 4 

16 

1 

16 

Length of string 



For example, the default field width for a real value is 16 
characters. If the value of a real variable called Average is 5.5, 
the value is printed as follows: 



Statement 



Wf\'irE (Avera<.^e)r 



Output 

5»50oooooooE;;foo 



Note that real values are printed in floating-point format, by 
default. The value of Average is written in a field of 16 characters 
(which includes a leading blank) . 

You can override the default for a particular value by specifying a 
field width in the print list. The following is the general form of 
the field-width specification: 



write parameter : minimum 



fraction 



Minimum and fraction must be positive integers. Minimum indicates the 
minimum number of characters, including padding spaces, that are to be 
written. Fraction, which is used only with real values, indicates the 
number of characters to the right of the decimal point. 

For example, you may prefer to print the real value of Average in the 
more readable decimal format. You can include field-width parameters 
in the WRITE procedure call to do this: 

WRITE ('The average is ' i* Aver3<^e J 4 1 1 ) ? 

This statement produces the following output: 

The average is 5»5 

The integer 4 indicates that at least four characters will be printed. 
This count includes -the decimal point and a minus sign (-) if the 
value is negative. If the value is positive, as above, this minimum 
includes a leading blank. 

The integer 1 specifies that one digit will appear to the right of the 
decimal point. Thus, the WRITE procedure above specifies a field at 
least four characters wide, with one character to the right of the 
decimal point. 
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The following rules apply to designating field-width parameters in 
output procedures: 

1. If the fraction parameter is omitted from a real value, the 
value is printed in floating-point format. 

2. If the print field is wider than necessary, PASCAL prints the 
value with the appropriate number of leading blanks. 

3. If the print field is too narrow, PASCAL treats the different 
kinds of write parameters as follows; 

• Truncates strings and nonnumeric scalar values on the 
right to the specified field width. 

• Prints integers and real numbers in decimal format using 
the full number of characters needed for the value, thus 
overriding the field-width specification. 

• Prints real and double values in floating-point format in 
a field of at least eight characters (for example, 
-l.OE+00). All real values in either format are printed 
with a leading blank if they are positive and a leading 
minus sign if they are negative. 

Example 1 

Statement 

W R I I' E ( ' I" :i. T' s t ri u iii b e r ' i^ N u m b e r t 9 ) v 

Output 

First number 1 

If Number is an integer variable whose value is 1, this statement 

prints the text ('First number -- ') followed by eight spaces and the 

numeral. 1. That is, 1 is r ight- just i f ied in the field of nine 
characters . 

Example 2 

Statement 

WRITE ("This is a test string ' t 12) r 

Output 

This is a te 

The text in this example is truncated on the right so that it fits 
into the field of 12 characters. 
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BEGIN 

N I..I iTi b e r^ J -- 5 ? 

WRITE (Number My ' 

ENIly 



vali.ies averaged to ' y Avera«{e J 3 M ) ? 



Output 

'5 values avera?;^ed to 5»5 

One WRITE procedure can contain several values and strings as in this 
example. If Number equals 5 and Average is 5.5, the output shown is 
printed. Three leading blanks are included before the number 5 to 
fill the print field, which is 4. Note that the value of Average is 
printed in a field of four characters, including the leading blank, 
even though the procedure specifies a field of three characters, thus 
overriding the field-width specification of 3. 

Example 4 

Statement 



BEGIN 




NuiTi.1. 


- 7 1 « 1. y 


Nuiri2 


■■^■■^ 29. 9 i 


Num3 


■■■■■■■■ 1 .1. , y 


WFaiE 


(NuiTii :5:i y ' 


ENDy 




Output 





and ' y Ni..iiTi2 J 5 5 :l. y ' sum to ' y ( Numl f Nuiti2 ) t 6t 1 ) y 



7:1,1 and 29.9 sum to 1.01 ♦() 

This example shows an arithmetic expression as a write parameter. The 
values of Numl and Num2 (71.1 and 29.9, respectively) are each written 
in a field of five characters. The expression (Numl + Num2) 
evaluated, and the value (101.0) is printed in a field of 
characters . 

Example 5 

Statements 

W R I T E ( ' F" i r s t c o 1 i..i in i"i h e a d i n B' ) f 

W R I T E < ' S e c o n d c o 1 "..i m r i h e ;:} d ;i. it <:i ' 135) y 



1 s 
six 



O utput 

E i r s t c: o \ u m n \\ e a d i. n ?.^ 



8 e c. o i"i d c o I u iri ri \\ e a d i n <^ 



Remember that, after a WRITE procedure is executed, the file pointer 
is positioned after the last character printed. Therefore, two 
consecutive WRITE procedures print data on the same line. The first 
procedure call to WRITE prints the text, leaving the file position 
after "heading". The second procedure call r ight- just i f ies its text 
in a field of 35 characters. 
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Example 6 

If you specify a variable of an enumerated type as a write parameter, 
PASCAL prints the constant variable that names its value in uppercase 
letters. For example, suppose the variable Color is defined as: 

V A R C o 1 Q r J ( B 1 i.,i e y Y e ll o w y B I a c k y S 1 :i. <:i h 1 1 <■.■.{ ._. I"' 3 1 e .... !•■• e a c h .... S u iri in e r- .... S i..i I'l s el) i 

Assume that the value of Color is Yellow. Then this WRITE procedure 
call: 

W r;: I r i: ( ' M •-.■.( r b v o r it e c o l o r :i. s ' y C o I or 133) t 

produces the following output: 

My favorite color :Ls YI:;.I...I...OW 

Note that yellow is printed r ight- j usti f ied and uppercase, preceded by 
27 blank spaces. 

When the value of Color is Si ightly_Pa le_Peach_Summer_Sunset , however, 
the following appears: 

M y f 3 V o r :i. t e c o I o r ;i. s 3 1... I G H T I... Y .... I"' A L E .... P E A C l-l .... S l.J M M li: R ... S l.l N S 

PASCAL only recognizes the first 31 characters in a variable name. 
Thus, although the field width specified is wide enough for all 33 
characters, only the first 31 characters are printed; and they are 
r ight- just i f ied in the print field. 



4.3.2 The WRITELN Procedure 

An alternative form of the WRITE procedure is the WRITELN procedure. 
The WRITELN procedure performs the WRITE procedure, then positions the 
file position pointer at the beginning of a new line. It has the 
general form: 

WRITELN II ( I OUTPUT,! print list)l ; 

Write parameters are specified in the print list in the same manner as 
in the WRITE procedure. Furthermore, the field-width rules described 
in that section also apply to the WRITELN procedure. 

If you have multiple parameters in the print list, the WRITELN 
procedure prints all of the values on one line, and then starts a new 
line. Alternatively, you can omit the print list altogether. This is 
useful when you v;ant to start a new line or write a blank line to the 
output file. 

Example 1 

Statements 

WR I TELN ( ' The va 1 ue of X .i. s ' y X ) 5 
WRITELN ('The value of Y is 'yY)? 

Output 

The value of X is 10 

The value of Y is 15 
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The file position pointer is positioned immediately after 
15. 

Example 2 

Statements 



the value 



wr:[ti: 



:LN( 'NameJ ' !- 'fit-!iet'tl9y 'See, Sec* :':26)? 
:i.,.N( 'Socrates' y 'Old' tl5y 'Unknown' :24) 5 



Output 
Name I 
Socrates 



Old 



Soc ♦ Sec« 
Unknown 



This example illustrates how multiple parameters in the print list of 
a WRITELN procedure are printed. All the items in the print list are 
printed on one line. Then, the file position pointer is advanced to 
the beginning of a new line. This example also shows how to print a 
blank line by omitting the print list. The second WRITELN procedure 
call prints no characters, but creates a new line. 



4.4 THE PREDECLARED FUNCTIONS EOLN AND EOF 

The EOLN and EOF functions are predeclared PASCAL functions that 

operate on file variables and yield Boolean results. The EOLN 

function tests the end-of-line condition. The EOF function tests the 
end -of -file condition. 



4.4.1 The EOLN Function 

Text files are divided into lines. Each line ends with a 
line-separator mark indicating the end of a line. You can test for 
this end-of-line mark with the EOLN function. 

The format of the end-of-line function is: 

EOLN I (file variable) II ; 

The file variable must be a variable of type TEXT. The file variable 
is the default file INPUT. You can either specify the name INPUT or 
omit the file variable altogether, because INPUT is the default. 

The function EOLN is true when the file position pointer is at the end 
of a line, or after the last component on a line has been read. 
Otherwise, EOLN is false. 

After a READ procedure reads the last component on a line, the file 
position pointer is on the EOLN mark. 
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In contrast, after a READLN procedure reads the last component on a 
line, the file position pointer is at the beginning of the next line, 
that is, past the EOLN mark. Thus, after a READLN is performed, the 
EOLN function is not true unless the next line is empty. For this 
reason, the input procedure before an EOLN test is usually a READ, not 
a READLN. 

If a READ procedure specifying a character variable as a parameter 
encounters the EOLN mark, a space (' •) is assigned to the variable. 

To specify the end of a line when typing input at the terminal, you 
press ( K'T ) , the RETURN key. After a READ procedure reads the last 
character that was typed before the RETURN key, EOLN becomes true. 

The following loop shows the use of the EOLN function: 

WHILE NOT EOLN (INPUT) DO 
BEGIN 

READ (Ch)y 

N u m .... (1- h a r s t- H u iri .... C h 3 r s f :l 
END? 

The variable Ch is of type CHAR, and Num_Chars is of type INTEGER. 
This loop counts the number of characters on a line. The WHILE 
statement causes the loop body to execute repetitively as long as NOT 
EOLN(INPUT) is true. When the last character on the line is read, 
EOLN becomes true.. The WHILE statement tests for NOT EOLN(INPUT), 
which is now false. Therefore, the loop is not executed again. The 
WHILE statement is described in Section 6.3.3. 



4.4.2 The EOF Function 

Every file ends with an end-of-file mark that you can test with the 
EOF function. The EOF function is true when the file position pointer 
is on this end-of-file mark. The EOF mark follows the last EOLN mark 
in a f ile . 

The format of the EOF function is: 

EOF I (file variable) J ; 

The file variable can be a variable of any file type. As with EOLN, 
the file variable INPUT is the default. 

As soon as the last line in a file is read, EOF becomes true. At all 
other times, EOF is false. 

You usually use the READLN procedure before an EOF test. If you use a 
READ procedure, the last component in the file is read; and the file 
position pointer is on the EOLN mark. EOF is false because the file 
position pointer has not been advanced to the EOF mark. 

When a value is being read into a character variable, EOF is false 
after a READ procedure. In this case, after the last component in a 
file is read, the file position pointer is at the EOLN mark. EOF is 
still false. As a result of one more READ operation, a space {' ') is 
assigned to the character variable; however, the file position 
pointer remains at the EOLN mark,, It is necessary to use a READLN 
procedure to position the file position pointer at the EOF mark. 
Until a READLN procedure is used, spaces continue to be assigned to 
the character variable. 
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The diagram in Figure 4-1 repre55ents the characters and the EOLN and 
EOF marks in a text file. 



Beginning 
of File 



• • • X 



EOLN EOF 

MR S-3077-8S 



Figure 4-1: The End of a Text File 



The s^^bol X represents the last component of a text file. Suppose 
the following procedure reads the component denoted by X into a 
variable : 

R E AD I... N( variable) r 

The variable is assigned the value in X. The READLN procedure 
advances the file position pointer past the EOLN mark (that is, to the 
EOF mark). Thus, the file position pointer appears as shown in Figure 
4-2. 



Beginning 
of File 



• • • 



EOLN EOF 



File Position 

MR-S-3078-83 



Figure 4-2: File Position Pointer at End of File 



When you are typing input at the terminal, you can indicate the end of 
the file by typing a <CTRL/Z>. The <CTRL/Z> generates an EOLN mark 
and an EOF mark. When a READLN procedure reads the last component 
typed before <CTRL/Z> , EOF becomes true. The READLN procedure reads 
past the EOLN mark and causes the file position pointer to be on the 
EOF mark. 

The following example shows the use of <CTRL/Z> to represent the EOF 
construct : 

F R G F^- A M A V e i^ a <:i e .... S c ore (IN F-' U T y U T' P U T ) r 

VAR 

S c: o r e * J o 1 3 1 y C o u n I I I N J E G E." R f 
Aversi^eScore t REAL, r 

BEGIN 

Total i-^- Of 
Count ;= 0? 

WRITE!,.. N ('Enter your scores* When doney type CTRL Z')? 
WHILE NOT EOE DO 
BEGIN 

READLN (Score) y 
Total J= Score f Total? 
Count I- Count + 1? 
END? 
AverasJeScore J- Total / Count? (*to produce real result*) 
WRITELN ('The avera<.^e score is: ' » Avera^eScore M ♦ 1 ) ? 
END* 
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In Average_Score , the first WRTTELN statement displays instructions 
for entering data items and terminating the list of items with a 
<CTRL/Z>. Each time the READLN procedure reads a value for the 
variable Score, it reads past the EOLN mark. On the last iteration, 
the READLN procedure encounters the end of the file, which was 
generated by the <CTRL/Z>. 



4-15 



CHAPTER 5 
STRUCTURED TYPES: THE ARRAY AND THE RECORD 



This chapter describes the use of two structured data types: arrays 
and records. Structured data types are composed of scalar data types. 
The types presented in previous chapters of this primer are all scalar 
types. A variable of a scalar type is an indivisible unit of data. 
Scalar types cannot be divided into smaller, individually manipulated 
data items. 

A variable of a structured data type, on the other hand, is a 
collection of related data items that can be accessed and manipulated 
individually. You can refer to an entire structured variable with one 
identifier, or you can treat its data items as single variables. 

PASCAL provides the following structured types for building data 
structures : 

• Arrays 

• Records 

• Files 

• Sets 

An array is a collection of data items of the same type, called 
components. A record is a collection of data items, called fields, 
that can be of different types. A file is a sequence of data items, 
called components, of the same type. A set is a collection of ordinal 
scalar components or members. 

This chapter presents the array (Section 5.1) and the record (Section 
5.2) types. A special case of the file type -- that is, the text file 
— was introduced in Chapter 4. A detailed presentation of the file 
and set types, however, is beyond the scope of this primer. The 
TOPS-20 PASCAL Language Manual describes sets and files in more 
deta il . 
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5.1 ARRAYS 

An array is a group of data items of the same data type. Each data 
item in the group is called a component of the array. You refer to 
the whole array with one identifier. You refer to each component with 
the array identifier and an index that is enclosed in square brackets. 
The indices need not be integers; they can be values of any scalar 
type except a real type. 

The format of the type definition for an array is: 

ARRAY [ index type [[ , index type...]] 1 OF component type; 

The index type can be a subrange of any ordinal type. It can also be 
the full range of the CHAR type, the BOOLEAN type, or an enumerated 
type. For example, you can specify the index type in the type 
definition with the identifier CHAR. However, the index type cannot 
be the full range of the type INTEGER. 

The components of an array can be of any type, including structured 
types. For example, you can define an array of integers, an array of 
records, or an array of real numbers. An array of arrays is a 
multidimensional array, as explained in Section 5.1.1. 

The following is an example of an array declaration: 

VAR Word t AFs'RAYi: t ♦ ♦ 2011 OF CHARy 

An array declaration establishes three properties: 

1. The identifier that names the whole array. Tn the example 
above, the name of the array is Word. 

2. The range and type of the indices. In the array Word, the 
indices are a subrange -- 1..20 — of integers. 

3. The type of the components. The components of Word are of 
type CHAR. 

You refer to an array component with the array identifier and a 
bracketed index. The index can be any expression of the index type. 
Thus, in the array Word, the first component is WordFl]; the second 
is Word[2l; and so forth. You can use array components in the same 
way that you use any component of the same type. For example, if Word 
is defined to be of the CHAR data type, you can use Wordr2] as a 
variable of the CHAR data type. Thus, Word[2] could appear on the 
left-hand side of an assignment statement or as a parameter of the ORD 
function . 
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The type definition shown above can appear in the TYPE section or in 
the VAR section. Where the type definition appears depends on whether 
you are defining a type or using a previously defined type. An 
example of defining an array type in the TYPE section is: 

TYPE F-' rices ■■■■■■ AF^lRAYi: 1 ♦ t 100::i OF REAL? 

This TYPE section defines the type Prices whose index type is the 
subrange 1..100, and whose component type is REAL. You can declare a 
variable of type Prices as follows: 

UAR It ems t Prices? 

Suppose a store has up to 100 kinds of items for sale, and each item 

is associated with a stock number in the range of 1 to 100. The 

identifier Items represents the price for each item. Thus, for 
example, the price for item number 20 is stored in Itemsr20l. 

The following declarations show an example of declaring an array 
variable in the VAR section. 

TYPE Db'-.js ■■■■■- <Si..iny Monc Tuec Wedv Thur Friy Sat)? 

WorkDa^:f -- 0* * 24? 
VAR W c) V k Week. : A R R A Y II M o ri » . I"' r^ ;l 1 f W o r k IJ a y ? 

In the array WorkV/eek, the index type Mon..Fri is a subrange of the 
enumerated type Days. The component type WorkDay is a subrange 
(0..24) of the integers. This declaration creates the variable 
Workweek in which each of the five components represents the hours 
worked in one day. 

Suppose you want to write a program to calculate the average score of 
a test of several students enrolled in a course. You can treat the 
group of test scores as an array, and thus keep each score recorded by 
a particular student. The following declarations create an array type 
and a variable of that type: 

TYPE Tests ■■■■^■- !♦ ♦Max? 

Test Scores - ARRAY f! Tests 1 OF INTEGER? 
V A R S c o T^ e ♦ T e s t S c o r e <:> ? 

Note that you can use a type identifier (for example. Tests) as the 
index type in an array definition. If Max is equal to six, TestScores 
is an array of integers whose index can range from one to six. To use 
an individual score in an executable statement, specify the array 
identifier (Score) and an integer expression whose value is between 
one and Max. 
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A program that calculates the average of the components in the array 
Score might be written as follows: 

P R G R AM New .... A v e r- ( 1 N I"' l.J T y t.J T' P U I ) ? 



CONST Max ^^ 6? 

TYPE Tests ---^ 1 ♦ .Max? 

Test SCO res -■■ Af^RAYTTests::! OF INTEGER? 
iv^AR Scor^e t TestScoi-es? 

S I..I iri » .1 y A V e r a <:i e J IN T P. G P. R y 



(* Ni.imber of scores to be 3v&rB<}ie(:i *) 



BEGIN 

S I.J IT) I ■■■■ y 

FOR I :~ 1 TO Max DO CM Access each coiriponeni of Score *) 

BEGIN 

W i\ :i: T I:.-. ( ' E: ri t e v t e s t s c o r^ e I ' .' 5 

R E A H L. N ( S c o r e i:: I :i ) y (>K R e a d a I'l i ri t e <i^ e r :i. ri t o e a c h c o m p o i "i e n t * ) 

Sum t--- Sum f ScoreriiM* Sum the components * ) 
END? 

Ave r a s.5 e J -- !.? i..i irr I'l ]! V M cj ;•■; * 

W R I T E I.. N ( ' T f'l e f o 1 1 o w :i. n <:f, s c^ o ves w e r^ e e r 1 1 e r^ e d J ' ) y 
FOR I t---~ 1 TO Max DO 

WRITELN<Score[:i::i M) ? (* FT;i.ni each component of Score *) 
WRITELN( 'The avera^?e ist ' y Averas^e J 3 ) 
END* 

The program reads each score that is typed after the prompt Enter test 
score: and calculates a running sum. The average of the scores is 
the result of the expression Sum DIV Max. Output procedures print 
each score that was entered and the average score. 

A sample run of this program is: 



Enter test scor-e 
Enter test score 
Enter test score 
Enter test score 
Enter test score 
Enter test score 



100 
38 

,' ex 

.' .1 
90 
63 
9 A 



J h e f o 1 1 o w i ri <Ji s c o v e s w e t' e e n t e r^ e d I 
100 

88 

75 

90 

63 

94 
The 3ver3i:ie .is J 85 

In an executable statement, you can specify a component of Scores with 

an index that is an identifier. In both FOR loops in the program 

New_Aver, the current score is denoted by Score[I]. In fact, the 

index can be any expression of the index type; you could, for 

example, refer to a component as Score[I+ll (as long as I+l is in the 
range 1 . . 6) . 
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The array component Score'[i] is used in the same manner as a variable 
in the READLN statement, in the expression Sum + Score[n, and in one 
of the WRITELN statements. In fact, Scorefl] is a variable of type 
INTEGER. 

You can use the assignment operator (:=) on two arrays of the same 
type. The following example creates two array variables, called 
Current_Jan and Record_Jan, that are both of type Month_Temp. 
Month_Temp is a type that represents the temperatures for each day in 
a month. The executable section in the example shows the assignment 
of one array to another. 

(* Dec.larat.iDns *) 

CONST Days ■■■■■■■■ 31? ( * number of days :i.n Jan * ) 

T' Y F' E T & iri p •••" • ••• 2 ♦ ♦ 6 J (* r^ B i"i <:i e o f t e in p s o c c u r^ r^ :i. i "i <i\ i ri ». J a ri ^ ) 

M o n t h .... T e m p ■■■■■■■ A R R A Y L" 1. . ♦ D a y s :i F T e iTi p 5 

( * Mo i"i t, h .... J e iTi p h B s 3 :l. c o in p o ri e I'l t s y 
for each day :i. n Jan *) 

Kf A R 8 u me I y Aver' a <^ e .... T (■:■? in p ? OK <"} v e t e m p :i. ri c u r v e ri l. ^.J a ri * ) 

Record. ...Ave.. ..Temp t INTEGER? (* ave temp in Jan with record lows *) 

C ij r r e ri t .._ ,.J a n y R e c o r d J a n I M o ri t h ... T e in p ? 

( * C u V r e n t .... ...J a ri a ii d R e c o r d .1 a ri 

r e p r e s e ri t e a c h d <» ^:; ' s 
t e m p e i' a t u r e .i. n t h :i. s y e a t> ' <ij 
Jan and the Jan with lowest 
a ve r ai^e temp y respect i ve 1 y y * ) 

(* Executable Section *) 



Sum ♦== Oy 

FOR I t-~~- 1 TO Days DO 

Sum t~ Sum f C u r t' e n t ._ ,.J a ri [.' 1 1 y 
Avera^e_Temp ♦- Sum DIV Days? 

(* if average temp this year is less than the record yeary 
assis^n this year's temp array to the record temp array *) 

IF Aver3^e._Temp < Record„.Ave„.Temp THEN 
Record....J3n ♦= Currents Jan? 

The last line of the code shows the assignment of one array to 
another . 

This program fragment computes the average of the components of 
Current_Jan to obtain the average temperature for the month, and 
assigns that average to Average_Temp. If the value of Average_Temp is 
less than that of Record_Ave_Temp, the array Current_Jan is assigned 
to Record Jan. 
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5.1.1 Multidimensional Arrays 

So far only one-dimensional arrays, that is, arrays with one index, 
have been discussed. An array whose components are themselves arrays 
is a multidimensional array. An array can have any number of 
dimensions. Each dimension has its own index, and each dimension can 
have a different index type. 

For example, the declarations below create a two-dimensional array: 

CONST ClassSize - 15? 

NuiriTe<r>ts -• 5? 
1 Y F^' E C 1 a s s :== :l. ♦ ♦ C: 1 a s s S izer 

T e s t s " :l. t N I..I iTi r e s t s 5 
KJM< CTassScores t ARRAY C Claris J OF ARRAY T Tests ;;i OF INTEGER? 

The variable Class_Scores represents scores on a series of tests for a 

group of student^. Tf Class_Size is 15 and Num_Tests is 5, these 

declarations create a two-dimensional array called Class_Scores that 
can store the scores on 5 tests for each of 15 students,. 

You can abbreviate the array declaration shown above by specifying all 
the index types in one pair of brackets as follows: 

UAR Cl3ss.„.Scores : ARRAYCClassy Tests!! OF INTEGER? 

To refer to one component of a two-dimensional array, use the array 
identifier and two indices, one to specify each dimension. The first 
index corresponds to the first dimension declared, and the second 
index corresponds to the second dimension declared. The first 
dimension is the row, and the second dimension is the column. For 
example, Class_Scores [1 , 3] indicates the first student's third test 
score, and Class_Scores [ 3 , 11 indicates the third student's first test 
score . 

The Class_Scores array is illustrated in Figure 5-1. 

Tests 
(columns) 

. A 



Class 
(rows) 



I i. J t 3 

r-D D D D D 

^n D D D D 

O D □ D H 

"□ D D n D 

l=n n n n n 



MR-S-3079-83 



Figure 5-1: The Two-Dimensional Array Class Scores 
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The index ranges in Class Scores -- that is. Class and Tests 
correspond to the rows and columns, respectively, in the figure. In 
references to one component of Class _Scores , the first index indicates 
the row, and the second indicates the column. A particular score is 
found at the intersection of a row of Class and a column of Tests. 
For example, Class_Scores [ 3 , 5] , indicated in Figure 5-1 by an X, is at 
the intersection of the third row and the fifth column. 

To access successive components in a multidimensional array, you must 
use the proper control loop. Nested FOR loops are often used for this 
purpose. Refer to Section 6.3.] for a discussion of FOR loops. 

The following declaration creates a variable that holds each student's 
average score: 

K}fi\R CI ass... Averages : AF^-RAYi: Class::! OF- :i:NTEGERy 

The following statements include nested FOR loops to compute the 
average for each student and to store that average in the appropriate 
component of Class_Averages . 

F-OR I t^^ 1 to ClassSize DO 
BF^GTN 

Sum t ■■=■■■ 0? 

FOR J t -■■■■■ 1 TO Num Tests DO 

S I.J iTi { -■ S u iTi f C :i 3 s s S c o r e s L 1 y J'ii 

Class....AveT^a.<.^es[:i:i t ■■■■■■■ Suin I'MKf Nuiri....Tesis ? 
F::NDy 

The inner FOR loop sums the components in one row (row I) . The 
average of those components is assigned to Class_Averages [ II . The 
outer FOR loop causes this operation to be performed for each value of 
I, that is, the values ] through Class_Size (15). 

For example, on the fourth iteration of the outer FOR loop, each 

component in the fourth row is processed. The components 

Class_Scores [4 , J] , where J ranges from 1 to Num_Tests (5), are summed. 

Class_Averages [41 is assigned Sum DIV Num_Tests, where Num_Tests 
equals 5. 

You can define arrays of three or more dimensions by specifying the 
appropriate number of index types in the array definition, for 
example : 

U A R Fl o t e 1 .... y a c a n c :i. e s : A R R A Y F: 1 ♦ ♦ 8 y ' A ' ♦ , ' B ' y 1 ♦» 1 1 F" B 1... t;: A N r 

The variable Ho tel_Vacancies represents a hotel with 160 rooms. The 
hotel has eight stories, each denoted by a number from one to eight. 
Each story has 2 corridors, and each corridor has 10 rooms. The three 
dimensions of t:he array have index types 1..8, 'A'..'B', and 1..10, 
corresponding to the stories, corridors, and rooms in each corridor of 
the hotel. Thus, each component in Ho tel_Vacancies represents a room 
in the hotel. An individual component of Ho tel_Vacancies has the 
value TRUE if the room is vacant and FALSE if it is full. 
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Components Name[l] through Name[12] contain the characters "Joshua 
Jones". The READ procedure automatically assigns spaces to components 
Name[13] through Namer20]. Note that, if there are additional 
characters on the line instead of the EOLN mark, these characters can 
be read into components of Name. 



a string variable. 



Similarly, you can use WRITE or WRITELN to print 
for example: 

WR;i:Tlr:<Nait.e) 9 
This WRITE procedure produces the following output: 
JosJu.ia Jones 

You can apply the relational operators (<, <=, >, >=, =, and <>) to 
character strings of the same length. The result of comparing two 
strings depends on the lexical ordering of the strings. Just as words 
in a dictionary are arranged according to an alphabetical ordering, 
character strings are ordered according to the ordinal value of 
corresponding characters in the string. (See Appendix B for the 
ordinal value of each component in the ASCII character set.) 

PASCAL evaluates string expressions by comparing characters that 

occupy corresponding positions in the two strings. When the first 

nonequal characters in the two strings are compared, the string that 

contains the character with the higher ordinal value is found to be 

greater than the other string. If all characters are the same, 
including spaces, the strings are equal. 

For example, the following relational expressions are true: 

'F-'ekinese' < 'Saint E<ernards' 
'wine X roses ' > 'wine % cheese' 

The first expression is true because the ordinal value of 'P' (80) is 
less than the ordinal value of 'S' (83). When evaluating the second 
expression, PASCAL compares 'r' and 'c' because these are the first 
characters that are not the same in the two strings. The ordinal 
value of 'r' (114) is greater than the ordinal value of 'c' (99). 

You can form relational expressions with character string variables as 
well as with constants. Given the declaration of Section of type 
Title, that is, PACKED ARRAY[1..20] OF CHAR, the following statement 
includes a valid relational expression: 

IF Section = 'Character Strings ' THEN 
WRITELN( 'Thaf's all folks!')? 



5.2 RECORDS 

A record is a structured type consisting of related data items of 
potentially different types. A record is organized into fields; each 
field can have a different type. An example of a record variable 
declaration is as follows: 

VAR Person : RECORD 

Name : PACKED ARRAYC1*.20D OF CHAR? 

A^e I 0»»150r 

Sex { (Female)' Male) 

END? 
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The record variable Person has three fields: the field Name is a 
character string; the field Age is a subrange of integers; and the 
field Sex is an enumerated type consisting of the values Female and 
Male. To refer to one field, specify the record variable name and the 
name of the field, separated by a period (.) . Each field can be 
treated as a variable of the field type, as shown in the following 
example : 

Person tAde * -- 25? 

Person. Age refers to the field Age contained in the record Person. 
Person. Age can be assigned a value as if it were an integer variable. 

The record type definition format is as follows: 

RECORD 

field name(s) : type; 

(I fieldname (s) : type...]] 
END; 

As shown, you can specify the names of one or more fields. If there 
are multiple fields of a particular type, you must separate their 
names with commas. The type specifies the type of its corresponding 
field (or fields) and can be any valid PASCAL type. You cannot define 
more than one field with the same name within a given record. 

The reserved words RECORD and END enclose the fields in a record 
definition. Successive fields of different types must be separated by 
a semicolon (;) . A semicolon is not required between RECORD and the 
first field name, or between the last field type and END. 

NOTE 

You do not need a BEGIN with the END of 
a record definition. 

Suppose you are shopping for a new home and you want to maintain 
information on the houses you see. The factors important in choosing 
a home might include cost, distance from place of work, number of 
rooms, method of heating, and location. The following TYPE section 
defines a record type named House: 

type: House - RECORD 

Cost)- Distance ♦ RFrAL y 

Nu III. ...Rooms t 1**2 Of 

Heat t (Gasf Oil r Eilectr-icr Solan- Coal)? 

Location : PACKED ARRAYC1»»201 OF CHAR? 

Suitable : BOOLEAN 

END? 

The record type House consists of six fields. Note that you can use a 
structured type as a field of a record (in the type House, the field 
Location is a structured type) . 

To maintain information on a number of houses, you can declare an 
array of records. For example, if the constant Max_Houses is defined 
as 10, you can declare an array of 10 House records as follows: 

VAR House..„ChDices : ARRAYCl ♦ ♦MaK„Housesl OF House? 
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The variable House_Choices stores multiple records in one array. To 
refer to one field of one record in this array, specify the variable 
name House_Cho ices , an index enclosed in square brackets, a period, 
and the fieJ.d variable. This is shown in the following example: 

II o i.i s e .... C h o i c e <;> L 1 1 . 1-I e 3 1 

You use each field of a record variable in the same way a variable of 
the field type is used. Thus, the following are valid statements: 

FOR :i: t^--^ 1 TO M;:;x....Hoi..i<;>es DO 
BEGIN 

R 1;;: A i;i I... N ( H o 1..1 s e .... C h o ;i. c e s II I ::\ . C: o s t ) r 
R i;:: a ri l. N < l-l o u s e .... C h o i c e s \:. l :\ <■ n l s t a n <:; e ) ? 
R E: A n I... N ( II c) I..I s e .... C h o ;i. c e <;; i: 1 1 <■ N u in R o o ivi s ) ? 
I F ( l-l o u s e .... C h o i c e s L 1 1 . C o s t • :; 7 OA)) AN n 
( l-l 1..1 s e ._. Choi c esCll , n i. <;; t b n c e < 1 5 ♦ ) AN D 
( l-l o 1..1 s e .... C I) o i c e 5;> ['. 1 1 ♦ N 1..1 ni .... R o o m s > 6 ) T' l-l E N 
H o 1..1 i;i e .... V, h o i c e <.r> \.'. 1 "I » 8 1..1 ;i. t ;:; b 1 e t ■■"■ T R U E 
E l_. S E l-l o 1..1 s e ... C; h cj :i. c: e s L I :\ , S u t t a b ;i. e ; ■-■■■ f A i... S E 

end; 

You can assign a record variable to another record variable of the 
same type. For example, the following VAR section declares two record 
variables of the same type: 

VAR N e w _ l-l o i.j s e y Ii t^ e a in .... l-l o 1..1 <:> e t II o 1..1 *:> e ? 

If Dream_House is defined (that is, if each field of Dream_House has a 
value) , you can assign Dream_House to New_House as follows: 

N e w .... l-l o 1..1 s e I •- I J r^ e a iti .... H o u s e y 

You can nest records in a record definition; that is, a record can 
contain a field that is another record, for example: 

TYPE Employee ^^■■- RECORD 

NaiTie : PACKED ARRAYC 1 . ♦ 20.T OF CHAR? 
Address : RECORD 

HouseNo : INTEGER? 

Streety C:i.t-f : PACKED ARRAY \:.1**201 OF CHAR? 

5 1 ate : F A C K E D A F^• R A Y C J. ♦ . 2 ;] 1"' C: l-l A F^" i 

Zip : 0». 99999 

END? OKend of Address record*) 
EiiiployeeNo J INTEGER? 

JobTiile : PACKED ARRAY T 1 ., :l 0::i OF CHAR? 
Salary : REAL 
END? (*erid of Employee record*) 

VAR Employee_N J Employee? 

To refer to a field within the Address record, you must specify the 
identifier Employee_N, a period, the identifier Address, a period, and 
the particular field identifier, as shown in the following example: 

EiTiPloyee.„N ♦ Address* State t-~ 'F'^A'? 

This statement assigns the value of the string 'PA' to the State field 
of Employee_N . Address . 
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You must read and write the information in records field by field when 
you are performing I/O operations on text files. PASCAL does not read 
or write an entire record, for example: 

W R I T I::.' I... N ( ■' N 3 iri et ' v E in p 1 o h e e .... N <, N b iti e y ' N 1..1 iti b e r ' y ii." in p 1. o 'J e. e .... N * E] iti f :L o ^:( g e N o ) y 

This WRITELN procedure prints two fields of Employee_N: Name and 
EmployeeNo . 

The WITH Statement 

When you refer to fields of the same record repeatedly, it is 
cumbersome to repeat the record name in each reference. The WITH 
statement allows you to specify the record name once, and refer to the 
fields directly in the subsequent statement. 

The format of the WITH statement is: 

WITH record variable |[, record variable...]] DO statement; 

The record variable specifies the name of the record to which the 
statement refers.. Within the statement, you can refer to a field of 
the record directly instead of using the record . fieldname format. 

For example, the FOR loop that used the record variable House_Cho ices 
can be rewritten as follows: 

F-OF;; I t--^- 1 TO Max....Hoi..ises Do 
WITH F^ouse....C^)oicesl:I:] DO 
BEGIN 

F^■EADl...N((:;Gst) ? 

F;;E;:ADLN(D;i. stance) r 

R E A El I.. N ( N 1..1 iTi ... R ocms) r 

IF- (Cost < 70000»0) AND <D:istance < 15.0) AND 
( N u in .... R o o m s > 6) THEN 
Suitable X-^'- TRUE 

ELSE Suitable X^^ FALSE 
END? 

Each statement between the BEGIN and END delimiters uses the record 
name House_Choices [ I] . Thus, the following statements are the same: 

READI...N(Cost) ; 

READLN < House.XhoicesC X 1 * Cost ) r 



5-13 



STRUCTURED TYPES: THE ARRAY AND THE RECORD 

You can also use the WITH statement to refer directly to fields in 
nested records. You list the record names in the order in which they 
are nested, and after the reserved word WITH, for example: 

T Y !"■ i:;; N a in e -■■■ f A C K E n A F^; R A Y T 1 , ♦ 2 :.l F C H A F^; ? 

Date ■■■■■■■■ f;;ecord 

M o ri t h I ( J a n r F e b > M a t' c h y A p r^ i I • M a \:{ ? J u n e y 
J u I'-jf A I.J <:i .» S e p t y c^ t y N o v y Be c ) y 

Year : intf;:ge;;r 

ENDy 

VAR Hasp : RECORD 

F-'atien I t Namey 
BirthDate : Date? 
fiti;ie : INTEGER 
END? 

WITFI HosF-y BirthDate DO 
BEGIN 

P a t :i. e n t J -= ' T h o in a s J e f f e t^ s o r i " y 

Month t ■■••■-■ April? 

Day I ■■--■■ 13? 

Year l-~ 1743? 

A<=Je t--- 237 
END? 

The record Hosp contains the field BirthDate, which is also a record 
(of type Date). The specification of Hosp in the WITH statement 
allows you to refer to Patient and Age which are fields of Hosp. The 
specification of BirthDate allows you to access Month, Day, and Year, 
even though these fields are in a nested record. Thus, the WITH 
statement shown above is the same as the following: 

WITH Hosp DO 

WITH BirthDate Do 
BEGIN 



END? 

The record names in the WITH statement must be specified in the order 
in which they are nested. For instance, BirthDate is nested within 
the record Hosp in the declaration; therefore, Hosp must be specified 
before BirthDate in the WITH statement. 
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CHAPTER ^ 
PASCAL STATEMENTS 



The basic unit of a PASCAL program is the statement. A statement 
directs PASCAL to perform an action in a program. A statement 
consists of a systematic arrangement of reserved words, variables, 
operators, expressions, and other statements. This chapter describes 
the following types of statements: 

• Assignment statement 

• Compound statement 

• Repetitive statements 

• Conditional statements 

The assignment statement gives a value to a variable. 

The compound statement, delimited by BEGIN and END, groups other 
PASCAL statements together for sequential execution as a single 
statement . 

A repetitive statement causes a statement to be executed for a 
specified number of times or until a certain condition is reached. A 
conditional statement causes a statement to be executed if a certain 
value is true. 

Repetitive and conditional statements are control statements. Control 
statements alter the sequence of execution depending on whether 
specified conditions are met. In the absence of control statements, 
PASCAL statements are executed in the sequence in which they appear in 
the source program. 

As mentioned in Chapter 1, the semicolon (;) is a delimiter used to 
separate successive PASCAL statements. As such, it is not needed 
(although PASCAL does accept it) after a statement followed by a 
program element that is not a statement. For example, the use of a 
semicolon before the END delimiter is optional. In this manual, the 
semicolon is included as part of the statement format descriptions 
because it is usually necessary and is illegal in only one case. The 
exception occurs in the IF-THEN-ELSE statement as explained in Section 
6.4.2. 
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6.1 THE ASSIGNMENT STATEMENT 

The assignment statement assigns the value of an expression to a 
variable. The format of the assignment statement is: 

variable name := expression; 

The assignment statement replaces the current value of the variable 
with the value of the expression on the right-hand side of the 
assignment operator. The expression can be any expression having the 
same type as the variable, with a few exceptions: you can assign an 
expression of type INTEGER to a variable of type REAL or DOUBLE, and 
an expression of type REAL to a variable of type DOUBLE. You can also 
assign to a subrange variable a value of its base type. Note that 
this statement uses the assignment operator (:=), not the equality 
operator (=) . 

For example, if I is declared as an integer variable, the following 
statement assigns the value 100 to the variable I. 

I l---^ 100 y 

In addition to constant values, the right-hand side of the assignment 
statement can be any of the expressions described in Section 2.5. 

For example, suppose you have made the following declarations: 

CONST Yes ^-■■- 'Y' y 
No ---■ ' N ' 5 

TYF-'E! Department "■• (l:."n?.:J.i. neerin?^ > Sciences > Mathy Ens^l. ishy 

I... a ri .vi ij 3 .'.^ e s? Hi s t o i^ \:f y F i fi e .... A t^ t s ) y 

MA R 1 y I ri c r e iti e i "i t I I N 7' E G E R ? 
Answer J CHARy 

G T' a d e y F" a i. ]. i r i a .._ G t' a d e J R E A I., y 
M w ... M a J o r I B e part in e n t y 
Passed ; BOOLEAN y 

Then, the following assignment statements are valid: 

1 :•--•: ly 

Fai 1 in£{„.Grade l~ l*Oi 

Grade := (4+5f2-l )/3y 

Increment J= I + 1 y 

Passed *~ Grade? > Fai 1 in^....Gr3dey 

Answer t-~ Yes? 

My^MaJor ♦= F" ine... A r is y 

Note that, in the statement Answer := Yes, the expression to be 
assigned to Answer is a symbolic constant. The value of the symbolic 
constant Yes is a single character and therefore can be assigned to 
the CHAR variable Answer. In each of the assignment statements shown 
above, the type of the expression is the same as that of its 
corresponding variable. 
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6.2 THE COMPOUND STATEMENT 

You can use the BEGIN and END delimiters to group one or more 
statements into a compound statement. The statements are executed in 
sequential order. The format of the compound statement is: 

BEGIN 

sta tementl 
[[ ; sta tement2 . . . "I [[ ; B 
END; 

The statements within the BEGIN and END delimiters can be any PASCAL 
statements, including other compound statements. Each successive 
statement must be followed with a semicolon; however, the use of the 
semicolon between the last statement and the END delimiter is 
optional. PASCAL treats the compound statement as if it were a single 
statement. For example, the following contains a compound statement 
that is part of an IF-THEN statement: 

IF" Measure ■■■^ '<:i' THEN 
BEGIN 

W F^ I T' E L.. N ( ' E ri t e r t h e ri u m b e t^ o f <M a 1 1 o ri s ♦ ' ) ? 

RE ADEN (Gallons) y 
END 
ELSE 

BEGIN 

Ul R I J E L. N < ' E n t e i^ t h e n 1..1 m b e t^ of 1 A t e r s ♦ ' ) ? 

RE ADEN (Liters) r 

Gallons :-- Liters / 3.785? (*con verts liters to s^a lions*) 
END? 

If the Boolean expression (Measure = 'g') is true, every statement 
within the first BEGIN and END is executed. If the expression is 
false, flow of control transfers to the statement following the END 
and beginning with the ELSE. 

This manual uses the term "statement" to mean either a single 
statement or a compound statement. More examples of compound 
statements appear throughout this chapter. 



6.3 REPETITIVE STATEMENTS 

Repetitive statements cause a statement to be executed a specified 
number of times or until a certain condition is reached. The 
repetitive statements are: 

• FOR 

• REPEAT 

• WHILE 

The FOR statement executes a statement a specified number of times. 
The REPEAT statement executes a statement and then evaluates a BOOLEAN 
expression after executing the statement. The statement continues to 
be executed until the BOOLEAN expression is true. The WHILE statement 
evaluates a BOOLEAN expression at the beginning of a statement. As 
long as the expression is true at the beginning of the loop, the 
statement is executed. 

Each of these statements is described in the following sections. 
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• Because the reserved words REPEAT and UNTIL enclose the 
statements to be executed, you do not need a compound 
statement to set off multiple statements. The statements can 
be delimited with BEGIN and END, but do not have to be. In 
addition, you need not use a semicolon immediately preceding 
UNTIL. 

The example below shows the use of a REPEAT loop to search for a value 
in a sorted array. This is an example of a binary search, one of the 
classic search algorithms. Assume that the program includes the 
following declarations: 

C N S T S i z e -20? ( * d i iti e ri s i o n o f a v r a \:i * ) 

TYPE Name ■-■■ PACKED AFFRAY i: 1. ♦» 20 II OP CHAFI; ? 

V A R N a ir. e .... I... .i. s t : A l-v' RAY 1 .1. ♦ ♦ S d. z e ..I f N a in e r 
N a nri e .._ t a .... F i r i d J N 3 iri e ? 
1, Jy Middle : INTEGER? 

Pound : .boolean; 

Assume also that the array Name_List contains an alphabetized list of 
names. The following program fragment prompts for a name, then 
searches the array for that name. 

BEGIN 

(* Input the name »< ) 

W R .1- T E ( ' N a n, e t o f ,i. r. d : ' ) ? 

R E: a I'i L.. N ( N a iri e ._. t o .... f i n d ) i 

( * I n :i. t ;L a I :i. -^ e v a i* :i. a b .1 e s before e >i e c: u t i ri ai 1 o o p * ) 

I t-^: If 

J t ■- S i z e ; 

Pound i~ PALSE? 

REPEAT 

( * If Name..- 1 o .... f i n d is in N a nri e ... I., i s t r i t f a 1 1 s b e t w e e n t h e 

elements Name. ..List I." 1 .1 and Name.._List l."Jn *) 
Middle 5- (I+J) DI*.' 2? 

IF (N3me..„to....Pind --^ Name...List C Middle!]) THEN 
BEGIN 

(* Set Pound flas and print a message *) 
Pound t^^ TRUE? 

WRITELN (Name...to_..Pindf ' is element 'y Middle J 3 ) 
END 
ELSE IP (N3me...to_Pind > Name._List CMiddleH) THEN 

(* increase lower arra\:i bound to select top half *) 
I ;= Middle + 1 
ELSE IP (Name...to„Pind < Name..List TMiddle.!) THEN 

(* decrease upper array bound to select lower half *) 
J :=n Middle - 1 
UNTIL Pound OR (I > J)? 

IP NOT Found THEN 

WRITELN (Name...to...Pindi' ' is not in the listf')? 
END, 
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The REPEAT loop contains statements that partition the array and 
search the appropriate half. The variables T and J initially 
represent the upper and lower bounds of the entire array Name_List, 
and are changed during execution to represent the bounds of the part 
of the array currently being searched. Execution of the loop 
terminates when Name_to_ Find is found (in which case the variable 
Found is true) or when"" the value of I exceeds the value of J, 
indicating that Name_ to_Find is not in the array. 

For example, if Size is 20, the loop first compares Name_to_Find with 
Name_Li St [10] . If their values match. Found becomes TRUE; a message 
is printed; and the loop terminates. 

If Name_to_Find is greater than Name__Li st [10] , that is, if it falls 
later in the alphabet, then I takes on the value 11. The search is 
confined to the second half of the array, and the loop is repeated for 
elements Name_Li st [ 1 1] through Name_Li st [20] . 

If Name_to_Find is less than Name_List [ 10] , that is, if it falls 
earlier in the alphabet, then J takes on the value 9. The search is 
confined to the first half of the array, and the loop is repeated for 
elements Name_List[l] through Name_Li st [9] . 

On the second iteration, the value of Name_to_Find is compared with 
the middle element in the selected half of the array, either 
Name_Li st [1 5] or Name_Li st [5] . If the names do not match, the array 
is further partitioned. The search continues until Name_to_Find 
matches an element of Name_List. 

If the name is not in the array, eventually the value of I exceeds the 
value of J, causing execution of the loop to terminate. 

Example 2 

Assume that Count, Sum, Number, and Average have been declared as 
integer variables. 

Sum t~ Or 
Count t~ Of 
REPFAT 

READ (Number) r 

Sum l~ SuiTi f Number? 

Count ♦" Count + 1 
UNTIL EOLN(INPUT) OR (Count = 10) r 
Average J~ Sum DI'v' Count? 

This example reads and sums a list of 1 to 10 integers on a line and 
averages thero. The integers must be entered on one line, and a <RET> 
must be entered after the last integer. The REPEAT loop reads in one 
integer, adds it to the sum, and increases Count by 1. 

The REPEAT loop terminates when EOLN (INPUT) is true, or when Count 
equals 10. EOLN (INPUT) becomes true as a result of the <RET> typed 
after the last integer entered. 
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Example 3 

Suppose that the following declarations have been made in a program's 
declaration section: 

r Y F E N a in e s t r i n <i ^■■■- P A C K E: ti A R R A Y L 1 ♦ ♦ 2 .] F" C H A R r 

UAFs Naine J Namest rin^ ? 

Namelist I ARRAYS 1 »♦ 30 J of Namest r in<3 ? 
N 3 iTi G c o u n b I I N T E G E Fi; r 

The REPEAT loop below uses these variables: 

Natnecount J™ OJ 
REF'EAT 

READLN (Nair.e)? 

NaiTrecount t~ Namecaun t + 1? 

Namel istrNaiiiecountll i-~ Name 
UNTIL EOF" OR (Namecount =^ 30) y 

This example reads character strings representing names and stores 
them in the array Namelist, which contains components of a packed 
array of characters. Namelist can contain up to 30 names. 

The REPEAT loop increases Namecount by 1, then reads one name and 
assigns it to one element of Namelist (that is, Namel ist [Namecount] ) . 
The loop terminates when Namecount equals 30 or when EOF becomes true. 
Because the READLN statement reads one name and then skips to a new 
line, each name in the input file must be typed on a different line. 



6.3.3 The WHILE Statement 

The WHILE statement is like the REPEAT statement in that it specifies 
the repetitive execution of a statement. 

The format is: 

V/HILE Boolean expression DO statement; 

The loop is executed while the Boolean expression is true. When the 
expression becomes false, execution terminates. 

There are three important differences between the WHILE statement and 
the REPEAT statement. 

1. WHILE tests the expression before executing the statement (s) 
in the loop; REPEAT tests the expression after executing the 
statement (s) . Therefore, if the Boolean expression is false 
when WHILE is first encountered, the statement following DO 
is not executed. 

2. WHILE controls the execution of only one statement. Hence, 
to execute a group of statements repeatedly, you must use a 
compound statement. REPEAT does not require a compound 
statement; BEGIN and END are optional. 

3. WHILE terminates execution of the loop when a condition 
becomes false. REPEAT terminates execution when the 
condition becomes true. 
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Example 1 in the preceding section can be rewritten using 
statement to produce the same results: 

Loop wi th WHILE Statement 

0? 



WHILE 



J:) U fTi 

Count i^^^ 0? 

WHILE NOT EOLN(INF-UT) AND (Count 
BEGIN 

READ (Number); 
Sum J"- Sum + Number? 
Count I -" Count i 1 
END? 

Averaiiie '■■■■■■■ Sum 1')1K} Count? 

Loop with REPEAT Statement 



10) DO 



)um 



Oi 



0? 



k)unt 
REPEAT 

READ (Number ) ? 

Sum ♦ "" Sum + Number? 

Count **■■-■ Count f 1 
UNTIL EDLN(INF'UT) OR (Count 
AVERAGE t-=- Sum IMK> Count? 



10)? 



The differences between the two examples lie in the specification of 
the conditions for terminating the loop. The WHILE loop is different 
in these ways: 

• The test for EOLN(INPUT) must be written as NOT EOLN(TNPUT) 
so that the loop is repeated as long as EOLN(INPUT) is false. 

• The condition determining that only 10 integers can be 
averaged must be rewritten as Count < 10 (instead of Count = 
10) . On the last iteration, the tenth integer is read, and 
Count becomes 10. Count < 10 is then FALSE, so the loop is 
not executed again. 

• The logical expression uses the operator AND instead of OR. 
The statements are executed as long as both conditions are 
true . 

Example 2 

WHILE NOT Errorflad AND (Intcount < 100) DO 
BEGIN 

READ (Int)? 

IF Int > THEN Pos count := Pos count i 1 

ELSE IF Int < THEN Ne<.^count I---- Ne.^count f 1 

ELSE Errorflati : = TRUE? 
I ri t c o u n t J " I ri t c o u n t f 1 
END? 

This WHILE loop reads an integer; and, if the integer is positive, 
the variable Poscount is incremented. If the integer is negative, the 
variable Negcount is incremented. Up to 100 integers can be counted; 
the number of integers counted is accumulated in Intcount. If a zero 
is encountered in INPUT, Errorflag becomes TRUE; and the loop is 
terminated . 
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Suppose that, in the program surrounding the above program fragment, 
there is more than one way to obtain an error and thus assign the 
value TRUE to Errorflag. If Errorflag is true before the program 
encounters the WHILE statement, the statements within the loop are not 
executed. Similarily, if Intcount is greater than or equal to 100, 
the loop is not executed. 



6.4 CONDITIONAL STATEMENTS 

Conditional statements control the flow of the program depending on 
the evaluation of an expression. Unlike the repetitive statements, 
the conditional statements direct only the flow of execution; they do 
not directly control the number of times that a statement or 
statements are executed. 

The conditional statements in PASCAL are: 

• IF-THEN 

• IF-THEN-ELSE 

• CASE 



6.4.1 The IF-THEN Statement 

The IF-THEN statement executes a statement or statements only if an 
expression is true. The format is: 

IF Boolean expression THEN statement; 

If the expression is true, then the statement is executed. If the 
expression is false, program control passes to the statement following 
the IF-THEN statement. 

The reserved word THEN and the statement that directly follows it are 
called the THEN clause of the IF-THEN statement. The statement 
following THEN is called the object of the THEN clause, for example: 

IF A < THEN 

NG<^.„Ints t-~ Ne?i....Ints f Hr 

The object of the THEN clause is 
Ne«J....Ints :•"-- Nej^_.Ints •!• 1? 

If the value of A is less than zero, the value of Neg_Ints is 
increased by one. Note that you must not place a semicolon after the 
reserved word THEN. If you do, an empty statement becomes the object 
of the THEN clause. In the example above, if there had been a 
semicolon after THEN, the assignment statement would be executed 
regardless of the value of the Boolean expression. 
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Example 1 



IF" (Ans ■■■■■■■■ Yes) THEN 
BEGIN 



END? 



The object of the THEN clause can be a compound statement. The 
statements between BEGIN and END are executed if the Boolean 
expression is true. If it is not, execution continues with the 
statement following the END. 

Example 2 

IF (Ch >==■•= 'A') AND <Ch <=-= 'Z') THEN 
BE (3 IN 

Letter :== TRUE? 

LetterTotal J-- LetterTotal f .1 
END? 

If both relational expressions are true, the compound statement is 
executed . 

Example 3 

IF Errarflad THEN 

WRITELN < 'Index nunnber out of bounds')? 

The Boolean expression can be a single Boolean variable, as in this 
example. The WRITELN statement writes the message in apostrophes if 
the current value of Errorflag is TRUE. 



6.4.2 The IF-THEN- ELSE Statement 

The IF-THEN-ELSE statement executes one statement if the expression is 
true, and another statement if the expression is false. The format of 
the IF-THEN-ELSE statement is: 

IF Boolean expression THEN statementl ELSE statement2; 

Statementl and statement2 can be any PASCAL statements. Statementl is 
executed only if the expression is true. If the expression is false, 
then statement2 is executed. The reserved word ELSE and statement2 
are called the ELSE clause of the IF-THEN-ELSE statement. 



NOTE 

You must not place a semicolon after 
statementl and before the word ELSE. 
The IF-THEN-ELSE statement is a single 
statement; the IF-THEN clause cannot be 
separated from the ELSE clause. Because 
ELSE does not denote an independent 
statement, you receive a compile-tirae 
error message if there is a semicolon 
directly before the word ELSE. 
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The ELSE clause is always associated with the closest IF-THEN 
statement, for example: 



IF A =- 1 THEN 

IF" B <> 1 THEN C :- 1 

ELSE D t-^--- 1? 



The ELSE clause is associated with the second IF-THEN statement. 
Therefore, if A and B are both equal to 1 , 1 is assigned to the 
variable D. If A is not equal to 1, neither assignment statement is 
executed. If you want the ELSE clause to be associated with the first 
IF-THEN, you can write the sequence as follows: 



If A :■--• 1 THEN 

BEGIN 

IF B <> 1 THEN C J- 1 

END 
ELSE D I ■■■■■-■ If 

The object of the THEN clause of the outer IF-THEN-ELSE statement 
consists of: 

BEGIN 

IF B <> 1 THEN C := 1 
END 

And the ELSE clause is: 

ELSE d:=i? 

Thus, if A is equal to 1, the THEN clause is executed, and the ELSE 
clause is ignored. If A is not equal to 1, 1 is assigned to D 
regardless of the value of B. 

Example 1 

IF (Lastlnitial >= 'A') AND (Lasblnitisl <= 'M') THEN 

. BLlldste := 14 
ELSE Billdate := 28r 

This example determines billing dates depending on the initial of a 
last name. Bills are sent on the 14th of the month to each customer 
whose last name starts with A through M, and on the 28th to customers 
whose last name starts with N through Z. 

Example 2 

IF (Card_Sum > 21) THEN 

Lose := TRUE 
ELSE IF (Card.Sum >=17> THEN 

Deal := FALSE 
ELSE 
BEGIN 

Deal J= TRUE? 

Card-Sum J= CardSum + Newcard 

ENDr 
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This example shows a simple strategy for the game Blackjack. Note the 
nested IF-THEN-ELSE statements that allow the program to select and 
execute one of a group of statements. In this example, if the cards 
add up to more than 21, the player loses. If the sura is between 17 
and 21, inclusive, the player is not dealt any more cards. If the sum 
is less than 17, the player is dealt another card. The IF-THEN-ELSE 
construct can become awkward if there are more than a few selections 
to be made. A more elegant way to program this type of problem uses 
pascal's conditional CASE statement, which is explained in the 
following section. 



6.4.3 The CASE Statement 

The CASE statement selects one of a group of statements for execution. 
Constant values or case labels are associated in a CASE statement with 
each possible statement or action to be performed. The format of the 
CASE statement is: 

CASE case selector OF 

case-label list : statement 

[case-label list : statement...;] 

[otherwise clause I 
END; 

The case selector can be any expression (not only a variable) that 
evaluates to an ordinal type. The case-label list can consist of one 
or more values of the same type as the selector, separated by commas. 
Each label list is associated with the statement to its right. The 
label list and statement must be separated by a colon (:) . You can 
include an optional OTHERWISE clause that contains a statement that is 
not associated with a label. 

CASE executes the statement labelled by a value that equals a 
specified expression, for example: 



CASE Correct... Answers OF 



9^10 


Score 


t :.: ' A ' 


8 


Score 


:= 'B' 


7 


Score 


>-^ 'C' 


6 


t Score 


.= 'D' 


y 1 r 2 r 3 y 4 y 5 


' Score 


►:=: 'F' 


ENDy 







This CASE statement compares the value of the expression 
Correct_Answers to the case labels (the numbers through 10) . If the 
value of Correc t_Answers is any of the numbers from to 10, the 
assignment statement to the right of that number is executed. 



NOTE 



No BEGIN is allowed with the END 
CASE statement. 



to 



You can specify the labels in any order. The difference in the 
ordinal values of the largest and smallest labels must not exceed 
1000. Each label can appear only once within a CASE statement. 
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At run time, if the selector equals one of the specified labels, the 
statement to the right of that label is executed. If an OTHERWISE 
clause is included and the selector does not equal one of the labels, 
the statement next to OTHERWISE is executed. 

Setting the CHECK compile option controls whether an error occurs if 
there is no OTHERWISE clause and none of the case labels are selected. 
If the option is set, an error occurs at run time. If the option is 
not set, the statement following the CASE statement is executed. For 
more information about compile options, refer to the T OPS-20 PASCAL 
Language Manual . 

Example 1 

Suppose you have made the following declarations: 

UAR Month t (Jafty Feby Mary Aprr M«yy Juney 

.J t..i 1 y y A I. J <}i y S e p t f c tr N C) V y i:i ec) y 
3 eason t ( W i n t e r^ y S p t^ i n 5.^ y S i..i iti nfi e r y f a 1 1 ) y 
TeiiiP : INTEGER y 
Snow : BOOLEAN y 

You can use the following CASE statement: 

CASE Month OF 

J3ny Feby Mar : BEGIN 

S e a s o i"i J ~" W i ri t e t^ y 

IF (TeiriP <^= 30) THEN 

Snow i---^ TRUE 
END? 
Appy ha^jf June J Season ♦-• Spr.in.^ly 
Julyy Au.^y Sept I Season *-~ Summery 
Octy Novy Dec i Season J- Fall 
END? 

At run time, the current value of Month is evaluated. The statement 

associated with that value is executed; the rest of the statements 

are ignored. For example, if Month equals May, then Spring is 
assigned to the variable Season. 

Example 2 

This example represents the relationship of combinations of genes to 
the occurrence of dominant versus recessive traits. Assume that 
Gene_Combo and Trait are variables of enumerated types declared as 
follows : 

UAR Gene -Combo ♦ < Recess ive...Recessive y Recess i ve....Dominant y 

Dominant-Recessive y Dominant„.Dominant ) ? 
Trait I (Recessivey Dominant)? 

These variables are used in the following CASE statement: 

CASE Gene„.Combo OF 

Recessive_Recessi ve J Trait t~ Recessive? 

OTHERWISE Trait t--^ Dominant 
END? 

If the value of Gene_Combo is Recessive_Recessive , the value Recessive 
is assigned to Trait. If Gene_Combo evaluates to any other value, the 
OTHERWISE clause is executed: that is. Dominant is assigned to Trait. 
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CHAPTER 7 
PROCEDURES AND FUNCTIONS 



The statements described in the previous chapters provide the basic 
building blocks for writing PASCAL programs. This chapter describes 
the use of subprograms and the passing of data to and from 
subprograms . 



7 . 1 SUBPROGRAMS 

A subprogram consists of several statements grouped together to 
perform a single part of a larger task. Subprograms are useful for 
solving large problems; you can divide the problem into many pieces 
and solve each piece individually. 

For example, if you are writing a program to maintain student records, 
the program will be easier to write if it is broken into subprograms. 
The larger task of maintaining records could be broken down into such 
segments as adding students, deleting students, listing available 
courses, and entering grades. 

Subprograms are also useful when the same code segment is used more 
than once within the program. Using a call to a subprogram is simpler 
and clearer than duplicating the same code segment several times 
within the main body of the program. 

To handle these types of problems, PASCAL uses two types of 
subprograms : 

• Procedures 

• Functions 

Both procedures and functions are declared in the declaration section 
(see Sections 7.2 and 7.3) and are called from the executable section. 

A procedure is a group of statements that perform a set of actions. A 
function is similar to a procedure in that: it is a set of statements 
associated with an identifier; and it is declared in the declaration 
section. However, a function has a type, and it returns a value of 
that type. 

Procedures and functions have similar structures and restrictions. 
This manual uses the term "subprogram" in descriptions that apply to 
both procedures and functions. 

You can use predeclared subprograms that are defined by PASCAL and 
denoted by predeclared variables; or you can create user-declared 
subprograms, as described in this chapter. Appendix C contains tables 
of all the predeclared procedures and functions in PASCAL. 
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7.1.1 Format of a Subprogram 

Subprograms are similar in format to main programs. A subprogram 
consists of a heading and a block; the block contains a declaration 
section and an executable section. The heading of a subprogram is 
slightly different from that of a program, because the subprogram 
heading can contain a formal parameter list. See Section 7.4.1 for a 
description of formal parameters. For a function, the heading also 
indicates the type of the value returned. The declaration section 
defines local data items that are used in the subprogram. The 
executable section contains the statements that perform the actions of 
the subprogram. 

All subprograms must be declared in the declaration section of the 
main program or of another subprogram. A subprogram is not executed 
when it is declared. It is executed as a result of a subprogram call, 
which can appear in the main program or in another subprogram. 

Subprograms are said to be nested within the main program. In 
addition, subprograms can be nested within other subprograms. A 
nested subprogram can be called only from inside the block that 
declares i t . 

The general format of a subprogram heading includes one of the 
reserved words FUNCTION or PROCEDURE, followed by the subprogram 
identifier. An optional parameter list can be included. Functions 
must also include a result type as part of the heading. 

The use of variables is described in Section 7.1.2. Sections 7.2 and 
7.3 explain the use of procedures and functions. Section 7.4 provides 
information about the use of parameters. 



7.1.2 Local and Global Variables 

Local variables are variables that you define within the subprogram. 
PASCAL uses local variables only in the subprogram where they are 
defined. Global variables are those that are declared in the 
declaration section for the main block of the program. Although the 
global variable is declared outside a subprogram, it can be accessed 
by the subprogram. Thus, variables declared in the main program block 
are global to all subprograms. 




Global variables should be used with care in subprograms. When global 
variables are used, values are not explicitly passed to and from the 
subprogram. Therefore, debugging and modifying a program is more 
difficult than if values are explicitly passed. To avoid the problem 
of accidentally changing values in subprograms, it is suggested that 
parameters be used to explicitly pass values to and from subprograms. 
Parameters are described in Section 7.4. 
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7.1.3 Scope of Identifiers in Subprograms 

The scope of an identifier is the part of the program in which you 
have access to the identifier, that is, the block in which it is 
declared. Thus, the scope of a variable declared in the main program 
block is the full program. The scope of a variable declared in a 
subprogram block is that subprogram and all subprograms nested within 
it. 

In a subprogram, you can redeclare an identifier that has been 
declared in an outer block. When you use an identifier in a 
subprogram that is declared both in that subprogram and in an outer 
block, the identifier always refers to the declaration of most limited 
scope. The scope of a global variable does not include any block in 
which it is redeclared. Thus, the local variable can have attributes 
distinct from those of the global variable (for instance, type or 
value) . You should use great care if you redeclare an identifier in a 
subprogram. It could easily be confusing if the program needs to be 
debugged or modified at a later point. Redeclaring an identifier 
within a subprogram should be avoided if possible. 



7.2 DECLARING A PROCEDURE 

Procedures are declared in the declaration section of a program. To 

declare a procedure, you specify its heading and block. You can 

declare a procedure in the main program or in another subprogram. The 
format of a procedure declaration is;: 

PROCEDURE procedure name f [formal parameters)]] ; 

declaration section 
BEGIN 

statement [[; statement .. .]] 
END; 

The reserved word PROCEDURE is required. The procedure name specifies 
the identifier to be used as the name of the procedure. The formal 
parameters describe the parameters used in the procedure (see Section 
7.4) . 

The declaration section can contain local declarations and 
definitions. The statements between BEGIN and END can be any PASCAL 
statements. The block in the procedure is identical to the block in 
the main program, with the exception that the procedure block ends 
with a semicolon (;) rather than a period (.) . You should not 
redeclare the formal-parameter names or the procedure name as local 
variables in the procedure. 



7.2.1 Calling a Procedure 

A procedure is executed as a result of a procedure call. A procedure 
call consists of the procedure name and, when required, an actual 
parameter list. If the procedure declaration contains a formal 
parameter list, the procedure call must contain a corresponding actual 
parameter list. 
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The following example shows a program that passes values to and from a 
procedure . 

!"■ r;; C) G I-;: A M S w a p (IN F U T y U T P UJ ) i ( * t li i s f i' o ^ v a in o r^ d e t^ s p b i v s 

of numbers in ascend ins? 



order ^■) 



Xy Y : INTEGER? 



PR(3CEDURE Switch (^AR Ay B : INTEGER)? ( * Switch swaps values 

of variables * ) 
MAR TeiTip: INTEGER? 

BEGIN 

Temp J"" B? 

B : - A ? 

A J "= lemp? 
END? 

( * m a i ri p t^ o i:i r am * ) 

BEGIN 

WRITEl.N ('This pro5.{ram will order a list of numbers for you*')? 
IJRITELN ('When you are donei- type <CTRI...> Z»')? 
W l\' I T E 1... N ( ' E ri t e r^ t w o n u nri b e r s o f a ri y s i ;c: e ♦ ' ) ? 
WHILE NOT EOF DO 
BEGIN 

READLN (Xy Y)? 

IF X > Y THEN Switch (XrY)? (* here is the procedure call *) 
WRITELN (' 'y Xy Y)? 
END? 
IF EOF THEN WRITELN ('END OF LIST')? 
END* 

The procedure Switch is defined in the declaration section at the 
beginning of the program. The call to the procedure is in the main 
block of the program: 

IF X > Y THEN Switch (XyY)? 

If the expression (X > Y) returns a value of TRUE, the procedure 
Switch is called and executed. The actual parameter list names the 
variables (X and Y) that are passed to the subprogram. The formal 
parameter list in the procedure heading names the variables (A and B) 
to which the values from the main block are assigned. 



7.2.2 Procedure Example 

The following example shows the program Simple_Procedure . This 
program includes a procedure to perform a simple output operation. 

Execution begins in the main body of the program with the WRITELN 
statement. Execution continues to the evaluation of the IF-THEN 
statement. If the statement is true, that is, if Answer equals yes, 
then the procedure Read_Fortune is called. The procedure is called by 
using the procedure name as a statement. 
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When the procedure Read_Fortune is called, the statements in the 
procedure are executed. Because no values are being passed to or from 
the procedure, it is not necessary to specify any parameters when the 
procedure is called or in the procedure definition. After the 
statements in the procedure have executed, the flow of the program 
returns to the statement following the call to the procedure. In this 
example the final WRITELN statement is executed following the 
procedure execution. 

F ■ R G F^' A M S :i. in p 1 e .... F^' r o c: e d u t^ e (IN P U T' r U T P U r ) ? 

J Y F" E. Y e s .„ Ma ■- (Yes? Ho) i ( * d e f i i"i e s d a t a t \r{ p e wit h v a 1 i..i e s 

yes 3nd no *) 

VAR Answert Yes..„No J- Yes? (* def.ines one variab.le of 

user -defined type Yes. ...No and 
a s s i <:-i n s v a 1 u e Y e s ^ ) 

< * t h is pro c e d u t^ e e >c e c: u t e s t h e 
W F\ I T E L N s t a t e m e ri t sr w h e n b h i s 
procedure is ca.lled *) 
F* R C E D U R E R e a d „ F o r t u n e ? 
BEGIN 

WRITEILN ("You wil.l be healthy? wea.lthyn and wise')? 
END? 

(* main body of the prosirain *) 

BEGIN 

WFcITELN ('Would you like to see your fortune?')? 
WRITELN ('Please answer yes or no*')? 
RE ADEN (Answer)? 

IF Answer -• Yes THEN Read....F"ortune 
ELSE 

WRITELN ('If you had typed "y€?s" you would have seen'? 
'your fortune* ' ) ? 
WRITELN ('This is the end of the program*') 
END* 



7.3 DECLARING A FUNCTION 

A function is a group of statements that is associated with a name and 
that returns a value. PASCAL includes in the language such functions 
as SQR, SQRT, SIN,, COS, and ARCTAN. In addition, in PASCAL you can 
define functions within your programs. 

Functions are similar in format to procedures. However, a function is 
associated with a type, and returns a value of that type. The type of 
the value returned is specified in the function heading. 

To declare a function, specify its heading and block in the procedure 
and function part of a declaration section. The format of a function 
declaration is identical to that of a procedure, except that the 
function heading begins with the reserved word FUNCTION instead of 
PROCEDURE, and the heading includes a result type. The format is: 

FUNCTION function name ([(formal parameters)]] : result type; 

declaration section 
BEGIN 

statement H ; statement ... J 
END; 
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The function name is the identifier used as the name of the function. 
The formal parameter list must conform to the format described in 
Section 7.4. The result type must be a scalar or pointer type. 



The block of a function is the same as the block of a procedure, 
functions and procedures are terminated with a semicolon (;). 



Both 



Every function must include one or more statements that assign a value 
of the result type to the function name. In the function Divides 
(Section 7.3.2), if the Boolean expression -- (Dividend REM Divisor = 
0) -- is true, TRUE is assigned to the function name. Otherwise, 
FALSE is assigned to the function name. If a value is not assigned to 
the function name during execution of the function, the function 
result is undefined. 



7.3.1 Calling a Function 

A function is executed as a result of a function call. A function 
call is an expression in which the function and the formal parameters 
are included. Because the function call is an expression, it can be 
used anywhere other expressions can be used. For example, a function 
reference can appear on the right-hand side of an assignment 
statement . 

Unlike a procedure call, a function reference is not a statement in 

itself. However, actual parameters in a function reference are used 

in exactly the same manner as in procedure calls; they are passed to 
the function. 



7.3.2 Function Example 

The following is a valid function declaration: 

FUjNCTION Divides (Dividend. Divisor : INTEGER) : BOOLEAN? 
BEGIN 

IF (Dividend REM Divisor = 0) THEN 
Divides :~ TRUE 

ELSE Divides := FALSE 
END? 

Divides is a Boolean function that returns a Boolean value. If 
Divisor is a factor of Dividend (that is, it can be divided into 
Dividend with a zero remainder), the function Divides returns a value 
of TRUE. Otherwise, the function Divides returns a value of FALSE. 



7 . 4 PARAMETERS 

You pass data (that is, values and/or identifiers) to a subprogram by 
means of parameters. Parameters can be either value parameters or 
variable parameters. Value parameters are those in which the value is 
passed only to the subprogram; another value is not passed back from 
the subprogram. Variable parameters are those in which the value is 
passed to the subprogram and a changed value is passed back to the 
block from which the subprogram is called. 
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Formal parameters and actual parameters are terms used to describe the 
assignment process of the variables. Formal parameters are those 
listed in the subprogram declaration. Actual parameters are those 
specified in the subprogram call. In the body of the subprogram, the 
formal parameters represent the actual parameters. 



7.4.1 Actual and Formal Parameters 

A subprogram's formal parameters assume the values of the actual 
parameters when the subprogram is called. Formal parameters are 
listed in the heading of the subprogram. The formal parameters 
describe the parameters used within the subprogram and their types. 
The formal parameter list is the declaration for the parameters; they 
are not declared elsewhere. For example, the heading for the 
procedure Switc|i is shown below: 

PROCEDURE- Swatch (MAR Ay B I INTEGER)? 

In the procedure, A and B are formal parameters, and they are both of 
the type INTEGER. 

The format of the formal parameter list for specifying value or 
variable parameters is: 

{ [IvarII identifier list : type d ; [[varII identifier list : type...]] ) 

The reserved word VAR is used to define variable parameters. Variable 
parameters return a changed value to the main body of the program. 
The identifier list specifies one or more variables that denote formal 
parameters. The type specifies the type of the parameters in the 
preceding identifier list. 

The formal parameter list determines the nature of the actual 
parameter list. In the actual parameter list, you must include 
exactly one actual parameter for each formal parameter specified in 
the subprogram heading. All variables used in the actual parameter 
list must be declared or defined in the block surrounding the 
subprogram call. 

For example, the following is a procedure heading with a formal 
parameter list: 

PROCEDURE Change (New„NuiTiber : INTEGER? "v'AR New..-Letter tCHAR) ? 

This is a valid procedure call to the procedure Change: 

ChansJe (Numberf Letter)? 

The actual parameter Number is associated with the formal parameter 
New_Number and the actual parameter Letter is associated with the 
formal parameter New_Letter. 

Thus, each actual parameter corresponds to a formal parameter. This 
correspondence is established solely on the basis of position in the 
respective parameter lists. The type of an actual parameter must be 
the same as that of its corresponding formal parameter. 

You can call a subprogram several times with different actual 
parameters. For example, the same program that contains the procedure 
call to Change shown above can contain the following, if Old_Letter 
and Old_Number have been defined in the VAR section: 

Change (01d.-.Numberr01d..Letter ) r 
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As a result of this procedure call, when Change is called, the formal 
parameters New_Number and New_Letter assume the values of the actual 
parameters Old_Number and Old_Letter, respectively. See Section 7.4.3 
for the program containing the procedure Change. 



7.4.2 Value and Variable Parameters 

You can specify two kinds of parameters in the formal parameter list 
of a subprogram: value parameters and variable parameters. The kind 
of parameter specified in the subprogram heading determines how the 
arameter is passed to the subprogram. 



pa 




Value parameters pass the value of the actual parameter to the 
subprogram. The subprogram cannot change the actual parameter's value 
during execution. Variable parameters pass the address of the actual 
parameter variable to the subprogram, thus the subprogram can change 
the actual parameter's value. 

by default. When you 

"'-- '~tual parameter is 

' and the 

e same 

formal 

The following example shows the use of a program that uses value 
parameters with a function: 

F' R G R AM n r^ 3 si a n ( I N I"' U T y U T P U J ) ? 

MAFs- 

^7 <•) 1 ci y S i. 1 V e r y C) o r-- per J I N f ' E G E R i 

( * T h e f "J ri c t i o ri W e a 1 1 h c 3 1 c ij 1 cJ t e <r> the w e a 1 1 h o f t h e p 1 a ^;; e r r b a s e d 
on the sioldy silvery and copper the player has* *) 

FUNCTION Wealth ( Gold....Coins y Si 1 ver._.Coiris y Copper...Colris : INTEGE^R) : REAL? 

VAR 

To tal.„ Wealth I REAL.y 

(* One s<old coin is worth *2Sy one silver coin is worth $2t50y 
and one copper coin is worth $«25 *) 



BEGIN 



ENDy 



BEGIN 



Total-Wealth := Gold_Coins * 25»0y 

Total_.Wealth := ( ( Si 1 ver„Coins * 2»S) f Total-Wealth) y 
Total_Wealth :~ ( ( Copper„Coins * 0.25) + Tot3l....Weal th ) y 
Wealth := Total._Wealthy 

(* Main prosJraiTi *) 



WRITELN ('How many coins does yoLir player have?')? 

WRITE ('Gold;')? 

RE ADEN (Gold)? 

WRITE ('Silver:')? 

READLN (Silver)? 

WRITE ('Copper:')? 

READLN (Copper)? 

WRITELN ('Total wealth is: *' yWealth(Goldy Si 1 very Copper) :8:2) ? 



END* 
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In the main block of this program, values are entered at the terminal. 
These values are assigned with the READLN statement to the variables 
Gold, Silver, and Copper. These values are passed to the function 
Wealth with the call: 

WRTTi;;;i...N CToial wealth i%t *'y Wealth (Ooldr Silvery Cor-r-er ) : 8 : 2 ) ? 

This statement calls the function Wealth, using Gold, Silver, and 
Copper as value parameters. The function Wealth calculates the 
To tal_Weal th , and then assigns that value to the function name. 
Control is returned to the main block, and the WRITELN statement is 
executed, using the newly calculated value of Wealth. 

Because the values of Gold, Silver, and Copper are passed as value 
parameters, the values remain the same. They are not changed by 
execution of the VJealth subprogram. 

The following is the output of the program Dragon, from compilation to 
execution : 

0? PASCAL 

r'ASCAL>dr3<3ori ♦pas 
PASCAL.;- /ex it 
fi? 1 oad d raaon ► re 1 
LINK? LoadinsJ 

ELXIT 

(?s3ve dragon »exe 

DRAGON. EXE." ♦ 2 Saved 
©run drasfon 

Haw many coins does your player have? 
(3old:25 
Si Iver ♦56 
Copper J 7 
Total wealth is J * 766*7?j 

e 

The program Swap, shown at the beginning of the chapter, shows the use 
of variable parameters in a procedure. 

PROCEDURE Switch (^^AR Ar B : INTEGER)? 

VAR Temp: INTEGER? 

BEGIN 

TeiTiP ♦= B? 

B := A? 

A ♦= TeiTiFr 
END? 

When the procedure Switch is called, the values of X and Y are 
assigned to A and B respectively. The procedure switches the values 
of A and B; and, since they are variable parameters, these changes in 
value also apply to the actual parameters X and Y. 
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Combining Value and Variable Parameters 

The following example shows the use of both value and variable 
parameters in a function: 

FUNCTION S^:{iYinietry (VAR S^^nnArr ; SauareArr? 

Side : INTEGER) I PGOLEAN? 

^^AR 1?J : INTE(3ER? 
BEGIN 

S y m iTi e 1 1^ y i ■■- T R LJ E f 
FOR I l-r^- 1 TO Side DO 
FOR J :=:^ I TO Side DO 

IF A[:i»J.l <> ACJyIJ THEN 
S y iTi m e b r y J "■■ F A L. S EL' 

end; 

The function Symmetry returns TRUE if a two-dimensional array is 
symmetric and FALSE if it is not symmetric. Suppose the type 
SquareArr is defined as follows: 

TYPE Saijare,._Arr -- ARRAYT 1 ♦ ♦ 10 » 1 ♦ ♦ 103 OF INTEGER? 

That is, it is a 100-element array of integers. The parameter Side is 
of type INTEGER and holds the length of the sides of the current array 
being tested . 

The function heading specifies that an actual parameter of type 
SquareArr will be passed as a variable parameter. However, the 
actual parameter of type INTEGER that is passed to Side is a value 
parameter . 

You can reference the function Symmetry as follows: 

IF ByiTiiTietry (This^Arry This„Side) THEN 
WRITELN ('The array is SymiTietric ' ) r 

Say that This_Arr is of type Square_Arr, and This_Side is of type 
INTEGER. This_Arr will be passed as a variable parameter, and 
This Side will be passed as a value parameter. 
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7.4.3 Examples 

In the following examples, the program Pass demonstrates the use of 
these terms. The procedure Change is used to show the use of local 
variables, global variables, value parameters, and variable 
parameters . 

P R G R A M F-' B s s (IN P U f y IJ J P U T ) y 

Number t INTEGER? 
Letter : CHAR? 
L limit J REAL? 

P R G E n U R i;;: C h a n ?^ e (New .... N u in b e r i I ri t e s=f e r ? K>M< N e w .„ L e 1 1 e i^ I G H A Fv' ) ? 
<^AR 

I t INTEGER? 

( * s t a t e m e r 1 1 s f o r t h e Fro c e d i..i r e G h a ri <={ e * ) 

BEGIN 

EGR I t ■■■■■■■■ 1 TG 3 DG 
BEGIN 

WRITELN ('Enter a new value for Number?')? 
Fi; E A Ii L N ( N e w __ N i..i m b er) i 

WFv'lTELN ('Elnter a new value for Letter?')? 
RE ADEN (New...Letter) ? 

WRITELN ('Enter a new value for LimitJ')? 
RE ADEN (Limit)? 
END 
END? 

( * m a i n b o d y o f t h e p r o si r a m * ) 

BEGIN 

Number J™ 5? 

Letter J •= 'A'? 

L i m .i. t t ~ 1 2.*5f 

WR I TELN ( ' The va 1 ue of Numbe r i s J ' y Numbe r * 3 ) ? 

WRITELN ('The value of Letter is J ' r Letter 12 ) ? 

WR I TELN ( ' The va 1 ue of L i m i t i s : ' r L i m i t M : 2 ) ? 

G h a n .'.^ e ( N u m b e r r L e 1 1 e lO ? 

WFs'ITELN ('The new value of Number is ♦ ' ^Number { 3) ? 

WRITELN ('The new value of Letter is ♦ ' rLetter t 2) ? 

WRITELN ('The new value of Limit isl't Limit:4l2)? 
END ♦ 

Example 1 

The following declaration shows the definition of global variables for 
the program: 

MAR 

Number : INTEGER? 
Letter : CHAR? 
Limit ; REAL? 

These global variables are defined in the declaration section 
associated with the main block of the program; these variable names 
can be used anywhere in the main block or in any of the subprograms 
defined in the declaration section. 
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Example 2 

The following shows the use of formal parameters in the procedure 
head ing : 

(New .... N ".J III b e i^ : INT li" Cv E R ? V A R N e w .... I., e 1 1 er t C l-i A R ) ? 

The formal parameter list lists the variable names that are associated 
with variable names used in the procedure call. The names of the 
formal parameters are unknown outside the subprogram, and therefore 
cannot be used elsewhere in the program. 

Example 3 

The following shows the use of a value parameter: 

N e w .... N ij iTi b e r i IN T E." G E R r 

The variable name New_Number is associated (when the procedure is 
called) with a variable name in the procedure call. 

A value parameter does not pass a value from the subprogram back to 
the block from which it is called. The type must be specified, and 
the type must agree with the type of the variable named in the 
procedure cal 1 . 

Example 4 

The following shows the use of a variable parameter: 

UAR New„.Le^tter t CHAR 

The variable name New_Letter is associated (when the procedure is 
called) with a variable name in the procedure call. 

A variable parameter passes the value from the subprogram back to the 
block from which it is called. Variable parameters must be preceded 
with the reserved word VAR. As with value parameters, the type must 
be specified, and the type must agree with the type of the variable 
named in the procedure call. 

Example 5 

This example contains a local variable. A local variable can be used 
only in the subprogram in which it is defined. It does not pass any 
values to or from the subprogram. Local variables are frequently used 
in FOR statements in subprograms. 

F^'ROCEDURE Chan<Je ( New...Number I INTEGER? ^AR New„L.etter i CHAR)? 

"JAR 

I : INTEGER? 



Local variables in subprograms are defined exactly as if they were 
being defined in the declaration section for the main block of the 
program . 
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Example 6 

T h :i. s :i. s t h e c 3 1 1 t o t h e s "j b p t^ t) £{ r a iri J 

BEGIN 

C h 3 ri *fi e ( N i..i in ben- I., e 1 1 e r^ ) » 



The call includes the procedure name and the actual parameter list. 
The actual parameter list includes the names of all the variables that 
are being used to pass data to the subprogram. The actual parameter 
list must coincide with the formal parameter list in two ways: the 
number of variables must match, and the type of variables must match. 

When a procedure is called, the leftmost variable in the actual 
parameter list is associated with the leftmost variable in the formal 
parameter list. 

<New„.Nuiiiber : INTEGER? MAR New....Letter : CHAR)? 

C \) B n <}i e < N ij m b e- r* Le 1 1 er) r 

The top line shows the formal parameter list. The second line shows 
the actual parameter list. When the procedure is called, New_Number 
is associated with Number, and New_Letter is associated with Letter. 
When the flow of the program returns to the main block, the value 
associated with New_Letter is assigned to Letter. The value 
associated with New_Number is not passed out of the procedure because 
New_Number is a value parameter, and values of value parameters are 
not returned from the subprogram. 
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APPENDIX A 
PASCAL DEFINED NAMES 




A.l RESERVED WORDS 



AND 


FILE 


NIL 


REPEAT 


ARRAY 


FOR 


NOT 


SET 


BEGIN 


FUNCTION 


OF 


THEN 


CASE 


GOTO 


OR 


TO 


CONST 


IF 


PACKED 


TYPE 


DIV 


IN 


PROCEDURE 


UNTIL 


DO 


%INCLUDE 


PROGRAM 


VAR 


DOWN TO 


LABEL 


RECORD 


WHILE 


ELSE 






WITH 


END 









A. 2 SEMIRESERVED WORDS 

MODULE 
OTHERWISE 
REM 
VALUE 



A. 3 PREDECLARED IDENTIFIERS 



ABS 


EXPO 


OPEN 


SINGLE 


ARCTAN 


FALSE 


ORD 


SNGL 


BOOLEAN 


FIND 


OUTPUT 


SQR 


CARD 


GET 


PACK 


SQRT 


CHAR 


HALT 


PAGE 


SUCC 


CHR 


INPUT 


PR ED 


TEXT 


CLOCK 


INTEGER 


PUT 


TIME 


CLOSE 


LINELIMIT 


READ 


TRUE 


COS 


LN 


READLN 


TRUNC 


DATE 


MAXINT 


REAL 


UNDEFINED 


DISPOSE 


NEW 


RESET 


UNPACK 


DOUBLE 


NIL 


REWRITE 


WRITE 


EOF 


ODD 


ROUND 


WRITELN 


EOLN 




SIN 




EXP 
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ASCII CHARACTER SET 



Table B-1 summarizes the ASCII character set. Each element of the 
ASCII character set is a constant value of the PASCAL predefined type 
CHAR. The ASCII decimal number in Table B-1 is the same as the 
ordinal value (as returned by the PASCAL ORD function) of the 
associated character in the type CHAR. 

Table B-1: The ASCII Character Set 



ORD Character Meaning 

Decimal 

Number 

NUL Null 

1 SOH Start of heading 

2 STX Start of text 

3 ETX End of text 

4 EOT End of transmission 

5 ENQ Enquiry 

6 ACK Acknowledgement 

7 BEL Bell 

8 BS Backspace 

9 HT Horizontal tab 

10 LF Line feed 

11 VT Vertical tab 

12 FF Form feed 

13 CR Carriage return 

14 SO Shift out 

15 SI Shift in 

1*^ OLE Data link escape 

17 DCl Device control 1 

18 DC2 Device control 2 

19 DC3 Device control 3 

20 DC4 Device control 4 

21 NAK Negative acknowledgement 

22 SYN Synchronous idle 

23 ETB End of transmission block 

24 CAN Cancel 

25 EM End of medium 

26 SUB Substitute 

27 ESC Escape 

28 FS File separator 

29 GS Group separator 

30 RS Record separator 

31 US Unit separator 

32 SP Space or blank 

33 ! Exclamation mark 

34 " Quotation mark 
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Table B-2: The ASCII Character 


Set (Cont.l 




ORD 


Character 


Meaning 




Decimal 








Number 








35 


# 


Number sign 


36 


$ 


Dollar sign 


37 


% 


Percent si 


ign 


38 


& 


Ampersand 




39 


1 


Apostrophe 


40 


( 


Left parenthesis 


41 


) 


Right parenthesis 


42 


* 


Asterisk 




43 


+ 


Plus sign 




44 


t 


Comma 




45 


- 


Minus sign or hyphen 


46 


, 


Period or 


decimal point 


47 


/ 


Slash 




48 





Zero 




49 


1 


One 




50 


2 


Two 




51 


3 


Three 




52 


4 


Four 




5 3 


5 


Five 




54 


6 


Six 




55 


7 


Seven 




56 


8 


Eight 




57 


9 


Ni ne 




58 


: 


Colon 




59 


7 


Semicolon 




60 


< 


Left angle bracket 


61 


= 


Equal sign 


62 


> 


Right angle bracket 


63 


7 


Question mark 


64 


@ 


At sign 




65 


A 


Uppercase 


A 


66 


B 


Uppercase 


B 


67 


C 


Uppercase 


C 


68 


D 


Uppercase 


D 


69 


E 


Uppercase 


E 


70 


F 


Uppercase 


F 


71 


G 


Uppercase 


G 


72 


H 


Uppercase 


H 


73 


I 


Uppercase 


I 


74 


J 


Uppercase 


J 


75 


K 


Uppercase 


K 


7 6 


L 


Uppercase 


L 


77 


M 


Uppercase 


M 


78 


N 


Uppercase 


N 


79 





Uppercase 





80 


P 


Uppercase 


P 


81 


Q 


Uppercase 


Q 


82 


R 


Uppercase 


R 


83 


S 


Uppercase 


S 


84 


T 


Uppercase 


T 


85 


U 


Uppercase 


U 


86 


V 


Uppercase 


V 


87 


W 


Uppercase 


W 


88 


X 


Uppercase 


X 


89 


Y 


Uppercase 


Y 


90 


Z 


Uppercase 


Z 


91 


r 


Left square bracket 
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ASCII CHARACTER SET 



Table B-2: The ASCII Character Set (Cont.) 



ORD 


Char 


Decimal 




Number 




92 


\^ 


93 


1 


94 


or 


95 


or 


96 


1 


97 


ci 


98 


b 


99 


c: 


ion 


c\ 


101 


e 


102 


i: 


103 


g 


104 


h 


105 


i 


106 


J 


107 


k 


lOR 


]. 


109 


m 


110 


n 


111 


o 


112 


P 


113 


q 


114 


i: 


115 


s> 


116 


t: 


117 


11 


118 


\' 


119 


v/ 


120 


>: 


121 


y 


122 


z 


123 


( 


124 


1 


125 


) 


126 


-' 


127 


DEL 



Meaning 



Back slash 

Right square bracket 

Circumflex or up arrow 

Back arrow or underscore 

Grave accent 

Lowercase a 

Lowercase b 

Lowercase c 

Lowercase d 

Lowercase e 

Lowercase f 

Lowercase g 

Lowercase h 

Lowercase i 

Lowercase j 

Lowercase k 

Lowercase 1 

Lowercase m 

Lowercase n 

Lowercase o 

Lowercase p 

Lowercase q 

Lowercase r 

Lowercase s 

Lowercase t 

Lowercase u 

Lowercase v 

Lowercase w 

Lowercase x 

Lowercase y 

Lowercase z 

Left brace 

Vertical line 

Right brace 

Tilde 

Delete 
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APPENDIX C 
SUMMARY OF PREDECLARED PROCEDURES AND FUNCTIONS 



Tables C-1 and C-2 summarize the procedures and functions declared by 
PASCAL. Some of the listed procedures and functions are not described 
in this primer. For information on these, see the TOPS-20 PASCAL 
Language Manual . 



Table C-1 



Predeclared Procedures 



Procedure 



Parameter Type 



Action 



CLOSE(f) 
DATE (string) 

DISPOSE(p) 



DISPOSE(p, 
tl , . . . , tn) 



FIND(f ,n) 



GET(f) 



f = file variable 

string = variable of 
type PACKED ARRAY 
[1 . .in OF CHAR 

p = pointer variable 



p = pointer variable 
tl , . . . ,tn = tag 
field constants 



f = file variable 
n = positive integer 
expression 

f = file variable 



Closes file f. 

Assigns current date 
to str ing . 



Release storage for 
p" . The po inter 
variable p becomes 
undefined . 

Release storage for 
p" ; used when p" is 
a record with 
variants. Tag field 
values are optional; 
if specified, they 
must be identical to 
those specified when 
storage was 

allocated by NEW. 

Moves the current 
file position to 
component n of file 
f . 

Moves the current 
file position to the 
next component of f. 
Then GET(f) assigns 
the value of that 
component to f '* , the 
file buffer 

variable. 
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SUMMARY OF PREDECLARED PROCEDURES AND FUNCTIONS 



Table C-1 : Predeclared Procedures (Cont.) 



Procedure 



Parameter Type 



Action 



HALT 



None 



LINELIMIT(f ,n) 



f = text file 

var iable 

n = integer 

expression 



Calls LIBSSTOP, 
which signals 
SS$_ABORT. Without 
an appropriate 
condition handler, 
HALT terminates 
execution of the 
program . 

Terminates execution 
of the program when 
output to file f 
exceeds n lines. The 
value for n is reset 
to its default after 
each call to REWRITE 
for file f. 



MARK (a) 



a = a variable of 
type "INTEGER 



Places a marker for 
use when allocating 
memory for dynamic 
variables. 



NEW(p) 



p = pointer variable 



Allocates storage 
for p" and assigns 
its address to p. 



NEW(p, tl,...,tn) 



p = pointer variable 
tl , . . . tn = tag field 
constants 



Allocates storage 
for p" ; used when p" 
is a record with 
variants. The 
optional parameters 
tl through tn 
specify the values 
for the tag fields 
of the current 
variant. All tag 
field values must be 
listed in the order 
in which they were 
declared. They 
cannot be changed 
during execution. 
NEW does not 
initialize the tag 
fields . 



OPEN(f, attributes) 



f = file variable 
attributes; see the 
TOPS-20 PASCAL 
Language Manual 



Opens the file f 
with the specified 
attributes . 
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SUMMARY OF PREDECLARED PROCEDURES AND FUNCTIONS 



Table C-1 : Predeclared Procedures (Cont.) 



Procedure 



Parameter Type 



Action 



PACK(a,i ,z) 



PAGE(f) 



PUT(f) 



READ(f , vl , . . . ,vn) 



READLN(f , vl , . . . ,vn) 



a = variable of type 
ARRAY [m. .nl OF T 
i = starting 
subscript of array a 
z = variable of type 
PACKED ARRAY [u..vT 
OF T 



f = text 
var iable 



file 



f = file variable 



f = fi]. e variable 
vl , . . . ,vn 
variables 



f = text 
variable 
vl , . . . ,vn 
variables 



file 



Moves (v-u+1) 
elements from array 
a to array z by 
assigning elements 
a [ il through 

a [ i + v-ul to z r ul 
through z [ v] . The 
upper bound of a 
subscript must be 
greater than or 
equal to ( i+v-u) . 

Skips to the next 
page of file f. The 
next line written to 
f begins on the 
second line of a new 
page . 

Writes the value of 
f " , the file buffer 
variable, into the 
file f and moves the 
current file 
position to the next 
component of f. 

Assigns successive 
values from the 
input file f to the 
variables vl through 
vn. You must specify 
at least one 
variable ( vl) . The 
default for f is 
INPUT 

Performs the READ 
procedure, then sets 
the current file 
position to the 
beginning of the 
next line. The 
variables vl through 
vn are optional. The 
default for f is 
INPUT. 



RELEASE (a) 



a = a variable of 
type "INTEGER 



Deallocates memory 
allocated by the NEW 
procedure up to the 
marker set by the 
MARK procedure. 
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SUMMARY OF PREDECLARED PROCEDURES AND FUNCTIONS 



Table C-1 : Predeclared Procedures (Cont.) 



Procedure 



Parameter Type 



Action 



RESET(f ) 



f = file variable 



REWRITE (f) 



f = file variable 



Enables reading from 
file f. RESET(f) 
moves the current 
file position to the 
beginning of the 
file f and assigns 
the first component 
of f to the file 
buffer variable, f " . 
EOF(f) is set to 
FALSE unless the 
file is empty. 

Enables writing to 
file f. REWRITE(f) 
truncates the file f 
to zero length and 
sets EOF(f) to TRUE. 



UNPACK(z,a ,i) 



TIME(string) 



z = variable of type 
PACKED ARRAY [u..v] 
OF T 

a = variable of type 
ARRAY fm. .nl OF T 
i = starting 
subscript in array a 



string = variable of 
type PACKED ARRAY 
[1 . .in OF CHAR 



Moves (v-u+1) 
elements from array 
z to array a by 
assigning elements 
z[u] through zfvl to 
a [ i] through 

a[l+v-ul. The upper 
bound a subscript 
must be greater than 
or equal to (l+v-u) . 

Assigns the current 
time to string 



WRITE (f ,pl, . . . ,pn) 



f = file variable 
pi , . . . ,pn = wr i te 
parameters 



Writes the values of 
pi through pn into 
the file f. At least 
one parameter (pi) 
must be specified. 
The default for f is 
OUTPUT,. 



WRITELN(f ,pl, . . . ,pn) 



f = text file 

variable 

pi , . . . ,pn = write 

parameters 



Performs the WRITE 
procedure, then 
skips to the 
beginning of the 
next line. The write 
parameters are 
optional. The 
default for f is 
OUTPUT. 
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SUMMARY OF PREDECLARED PROCEDURES AND FUNCTIONS 

Table C-2: Predeclared Functions 

Category Function Parameter Result Purpose 

Type Type 

Ar i thmetic 



ABS(x) 


Integer , 


Same 


Computes the 




real , 


as X 


absolute value of 




double 




X . 


ARCTAN(x) 


Integer , 


Real 


Computes the 




real , 




arctangent of x. 




Double 


Double 




COS(x) 


Integer , 


Real 


Computes the cosine 




real 




of X . 




Double 


Double 




EXP(x) 


Integer , 


Real 


Computes e**x, the 




real 




exponential 




Double 


Double 


function. 


LN(x) 


Integer , 


Real 


Computes the 




real 




natural logarithm 




Double 


Double 


of X. The value of 



X must be greater 
than 0. 

SIN(x) Integer, Real Computes the sine 

of X . 



SQR(x) Integer, Same Computes x**2, the 

square of x. 



Integer , 


Real 


real 




Double 


Double 


Integer , 


Same 


real , 


as X 


double 




Integer , 


Real 


real 




Double 


Double 



SQRT(x) Integer, Real Computes the square 

root of X. If X is 
less than zero, 
PASCAL generates an 
error . 
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SUMMARY OF PREDECLARED PROCEDURES AND FUNCTIONS 



Table C-2: Predeclared Functions (Cont.) 



Category 



Function 



Parameter 
Type 



Result 
Type 



Purpose 



Boolean 



EOF(f) 



EOLN(f) 



ODD(n) 



File Boolean Indicates whether 
variable the file position 

is at the end of 
the file f. EOF(f) 
becomes TRUE only 
when the file 
position is after 
the last component 
in the file. The 
def aul t for f is 
INPUT. 

Text file Boolean Indicates whether 
variable the position of 

file f is at" the 
end of a line. 
EOLN(f) is TRUE 
only when the 
position pointer is 
after the last 
character in a 
line, in which case 
the value of f is 
a space. The 
default for f is 
INPUT. 

Integer Boolean Returns TRUE if the 

integer n is odd; 
returns FALSE if n 
is even. 



UNDEFINED(r) 



Real, Boolean Returns TRUE is the 
double value of r is not 

in the proper 
floating-point 
format. 
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SUMMARY OF PREDECLARED PROCEDURES AND FUNCTIONS 



Table C-2: Predeclared Functions (Cont.) 



Category Function Parameter Result 

Type Type 



Purpose 



Transfer 



CARD(s) 



CHR(n) 



ORD{x) 



ROUND (n) 



SNGL(d) 



TRUNC(n) 



Set 



Integer 



Any 


ord inal 


type 


Real , 


double 



Double 



Real , 
double 



Integer Returns the number 
of elements 

currently belonging 
to the set s. 

Char Returns the 
character ( i f one 
exists) whose 
ordinal value is n. 

Integer Returns the ordinal 
value corresponding 
to the value of x. 

Integer Rounds the real or 
double-precision 
value n to the 
nearest integer. 

Real Rounds the 

double- precision 
real number d to a 
s ingle- precision 
real number. 

Integer Truncates the real 
or double-precision 
value n to an 
integer . 
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SUMMARY OF PREDECLARED PROCEDURES AND FUNCTIONS 



Table C-2: Predeclared Functions (Cont.) 

Category Function Parameter Result Purpose 

Type Type 

Misc CLOCK None Integer Returns an integer 

value equal to the 
central processor 
time used by the 
current process. 
The time is 
expressed in 
mill i seconds . 

EXPO(r) Real, Integer Returns the 

double integer-valued 

exponent of the 
floating-point 
representation of 
r . 

PRED(x) Any Same Returns the 

ordinal as x predecessor value 
type in the type of x 

(if a predecessor 
ex ists) . 

SUCC(x) Any Same Returns the 

ordinal as x successor value in 
type the type of x (if a 

successor exists) . 
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GLOSSARY 



actual parameter 

Value or variable that is passed in a procedure or function call 
and is used during execution of the subprogram. 

actual parameter list 

List of actual parameters specified in a subprogram call. The 
actual parameters must be separated by commas, and the entire 
list must be enclosed in parentheses. 

address 

Specification of a location in the computer's memory, 
arithmetic expression 

Expression that evaluates to a real or integer value. 

arithmetic operator 

Symbol used with numeric variables, function references, and 
constants in forming arithmetic expressions. In PASCAL, the 
arithmetic operators are +, -, *, /, **, DIV, MOD, and REM. 

array 

Collection of data items, called components, that have the same 
type and share an identifier. The components can be accessed by 
the array identifier and an index enclosed in brackets. See also 
index . 

ASCII character set 

Characters and output control data that represent characters in 
PASCAL. (ASCII stands for American Standard Code for Information 
Interchange.) Each member of the ASCII character set corresponds 
to a unique integer between and 127, inclusive. 

assignment statement 

Executable statement that assigns a value to a variable. 

base type 

(1) For a subrange, the scalar type of which it is a subset. For 
example, the subrange 0..123 has the base type INTEGER. (2) For 
a set, the nonreal scalar type from which the elements of the set 
are chosen. 
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GLOSSARY 



block 

Declaration and executable sections of a program, procedure, or 
function. One block can be nested in another; for example, a 
procedure block is nested in the block of its declaring program. 

Boolean expression 

Expression that evaluates to one of the Boolean values, FALSE or 
TRUE. 



BOOLEAN type 



Predefined scalar type that has the identifiers FALSE and TRUE as 
constant values. 



bound 



Upper or lower limit of a subrange, often used in defining the 
index limits for a dimension of an array. 



case label 



In the CASE statement, a constant of the same type as the case 

selector. A list of case labels, separated by commas and 

followed by a colon (:) , precedes each statement that can be 
chosen for execution. 

case selector 

In the CASE statement, the expression whose value determines the 
statement selected for execution. In choosing the statement to 
be executed, the CASE statement first evaluates the case 
selector. It then scans the case labels preceding each possible 
statement, and executes the statement that is labeled with the 
value of the case selector. 

cha rac ter 

Single element of the ASCII character set and a value of the 
predefined type CHAR. 

character string 

Sequence of ASCII characters, enclosed in apostrophes. See also 
string constant and string variable. 

CHAR type 

Predefined scalar type that has the ASCII character set as 
constant values. 



comment 



Any sequence of characters appearing between the character pairs 
(* and *) or { and }. Comments are for documentation purposes 
and are ignored by PASCAL. 



compiler 



Program that translates source program statements into an object 
module . 
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component 

In an array, an individual data item denoted by the array name 
and an index for each dimension. 

compound statement 

One or more PASCAL statements, bracketed by the reserved words 
BEGIN and END, that are executed sequentially as a unit. 

conditional statement 

Statement that selects another statement for execution, depending 
on the value of an expression. PASCAL'S conditional statements 
are IF-THEN, IF-THEN-ELSE, and CASE. 

constant 

Literal that represents a value that cannot change during program 
execution. Examples include 'p', 3, 2.781, and 'metaphysics'. 

control statement 

Statement that directs the flow of control in a program, such as 
the IF-THEN-ELSE, FOR, WHILE, or CASE statement. 

control variable 

Scalar variable that takes on sequential values with each 
iteration of a FOR loop. After completion of the loop, the value 
of the control variable is undefined. 

data structures 

Combinations of single data items that form related groups of 
data, for example, records or arrays. 

data type 

See type. 

decimal notation 

Representation of real numbers in the integer . fraction format, as 
in 23.27, -7.8 3, and 0.0. 

declaration 

Specification that lists one or more labels or that associates an 
identifier with what it represents. Labels and identifiers for 
constants, types, variables, procedures, and functions must be 
declared . 

declaration section 

The part of a program or subprogram block that contains the 
declaration and definitions. 



default 



Action taken or value assumed by the system when none is 
explicitly specified. 
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del imi ter 



Punctuation mark or reserved word that sets off one part of a 
PASCAL program from another. BEGIN and END enclose the 
executable section or a compound statement. The semicolon (;) 
separates declarations or statements, and the period {.) 
indicates the end of the program. 

d imension 

Range of values for one subscript of an array. An array can have 
any number of dimensions; see multidimensional array. 

double precision 

Precision of approximately 1*^ significant digits for a 
floating-point real number; the type DOUBLE provides double 
prec ision . 

DOUBLE type 

Predefined scalar type that has double-precision real numbers as 
values . 

end-of-f ile 

Condition indicating that the current file contains no more data. 
The EOF function tests this condition. 

end-of-1 ine 

Condition indicating that the current line contains no more data. 
The EOLN function tests this condition. 

enumerated type 

Type comprising a sequence of values denoted by identifiers. A 
list of identifiers, separated by commas and enclosed in 
parentheses, defines an enumerated type. 

executable image 

File containing the executable version of a program. An 
executable image is the output from the linker, and is created by 
linking one or more object modules. 

executable section 

The part of a block that contains the executable statements, 
delimited by BEGIN and END, that perform the actions of the 
block . 

executable statement 

Statement in the executable section of the block that performs an 
action or directs the flow of control. 

expression 

A constant, a variable, a function reference, or some combination 
of constants, variables, function references, operators, and 
parentheses that PASCAL can evaluate. Every expression is 
associated with a type. 
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external file 



File that exists outside the scope of the PASCAL program, and 
therefore must be specified in the program heading. 



field 



Named component of a record, containing data items of one or more 
types. References to a field are in the record . f ieldname format. 



field width 



Minimum number of characters that the WRITE or WRITELM procedure 
writes to a text file for a particular expression or character 
str ing . 



file 



See file variable. 

file component 

Accessible unit of a file variable. A file component can be of 
any type except a file type or a structured type containing 
elements of a file type. 

file name 

On TOPS-20, a 1- to 39- character name component of a source file 
specification. However, the name of a relocatable binary file 
must contain no more than six characters. 

file generation number 

Numeric component of a TOPS-20 file specification. As a file is 
updated and changed, the file's generation number is updated with 
each successive copy. 

file position 

Position immediately following the file component that was last 
read or written. Only the component at the current file position 
can be accessed . 

file specification 

Unique TOPS-20 identification of a file on a mass storage medium 
(such as a disk). It describes the physical location of the file 
(node, device, and directory) and identifies the file name, file 
type, and file generation number. 

file type 

(1) On TOPS-20, in the source file specification, the 0- to 
39-character type component that usually describes the nature of 
a file or how it is used. For example, PAS indicates a PASCAL 
source program. However, the file type of the rel file must 
contain no more than three characters. (2) In PASCAL, a 
structured type that is a sequence of any number of data 
components of the same type. 
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file variable 

Named sequence of components of the same type used in I/O 

operations. A file can have any number of components; they can 

be of any type except a file type or a structured type containing 
components of a file type. 

floating-point notation 

Representation of real number data in the mantissa . fraction 
format, followed by a positive or negative exponent. The 
exponent is introduced by the letter E for a single-precision 
number, such as 7.321E02, and the letter D for a double-precision 
number, such as 4.0D-6. 

formal parameter 

Name that is declared in the heading of a procedure or function, 
and that represents an actual parameter when the procedure or 
function is invoked. 

formal parameter list 

List of passing mechanisms and formal parameter declarations that 
appears in the heading of a procedure or function. The entries 
in the list are separated by semicolons, and the list is enclosed 
in parentheses. 

function 

Program unit that returns a value when executed. A function 
consists of a heading, which includes the function's name and 
result type, and a block. 

function heading 

Specification of the name, formal parameter list, and result type 
of a function in a function declaration. 

function reference 

Use of a function name and actual parameter list in an executable 
statement to invoke the function. 

global identifier 

Identifier that is declared in a block at an outer level and 
therefore can be used inside the current (inner-level) block 
without redeclaration. 

global variable 

Variables that are declared in the declaration section for the 
main block of the program. Their scope is the entire program. 



head ing 



Specification that precedes a block and defines the block's name 
and parameters. 



Glossary-6 



GLOSSARY 



ident i f ier 



One or more alphanumeric characters that denote a variable, 
constant, type, procedure, function, or other item that is not a 
reserved word. Although an identifier can be any length, PASCAL 
treats only the first 31 characters as significant. 



i ndex 

An expression of an ordinal type that is used with an array name 
to specify a component of that array. 

input procedure 

Procedure that reads data into a program. PASCAL provides three 
predeclared input procedures: READ, READLN, and GET. 

integer 

In PASCAL, a whole number between -34359'7.38368 and +34359738367; 
a value of type INTEGER. 

INTEGER type 

Predefined scalar type that has integers as values. 

interactive mode 

Mode of communication in which. the system responds to the 
commands and program input that the user types at the terminal. 

internal file 

File that exists only within the scope of a block and is deleted 
when execution of that block termiinates. 



label 



(1) See case label. (2) Unsigned integer constant that is 
declared in the LABEL section and used to make a statement 
accessible from a GOTO statement. The label precedes the 
statement and is separated from it by a colon (:). 



LINK 



Program that creates an executable image from one or more object 
modules. Programs must be linked before they can be executed. 

LOAD 

Command used to invoke the LINK program. 

local identifier 

Identifier that is declared within a block and is unknown, and 
therefore inaccessible, outside that block. 

logical operator 

Reserved word or symbol that specifies a logical test. The 
logical operators in PASCAL include AND, OR, and NOT. 
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loop body 

One or more statements that are executed repetitively until a 
specified condition is met. 

multidimensional array 

Array with elements of an array type. Each dimension of a 
multidimensional array has its own subscripts, which can be of 
different types. 



modulus 



Flemainder of dividing one number by another. The MOD and the REM 
functions return the modulus. 



nested 



Contained within, as in a function declared within a procedure or 
a record that is a field of another record. 



object module 



Binary output from a language compiler or assembler that is input 
to the linker. The linker processes one or more object modules 
to produce an executable image. 



operator 



Symbol used in an expression to cause PASCAL to perform a 
specific task. PASCAL includes arithmetic, relational, and 
logical operators. 



ordinal 



Term used to encompass all nonreal scalar data types; ordinal 
refers to integer, character, and Boolean data types. 

ordinal value 

Integer corresponding to the position of a given value in a 

sequential list of values of its type. Ordinal value applies 

only to integer, character, Boolean, enumerated, and subrange 

types. The ORD function returns the ordinal value of an 
expression of one of these types. 

output procedure 

Procedure that writes data into a file. PASCAL provides three 
predeclared output procedures: WRITE, WRITELN, and PUT. 

packed 

Stored as densely as possible in the computer's memory. 

parameter 

Means of passing information between program units. See actual 
p)arameter, formal parameter, read parameters, and write 
parameters . 
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parameter list 



Specification of the actual or formal parameters for a procedure 
or function. The parameter list follows the name of the 
procedure or function and is enclosed in parentheses. See also 
actual parameter list and formal parameter list. 

Pascal 

(1) Blaise Pascal, a French mathematician and philosopher, born 
in 1623 and died in 1662. (2) Structured programming language 
developed by Niklaus Wirth in Zurich, Switzerland in the early 
1970s. 

pointer 

Variable whose value is a reference to a dynamic variable. 

precedence rules 

Rules applied to the order of evaluation of operations in an 
expression. An operation with higher precedence is performed 
before an operation with lower precedence. 

predecessor value 

Value that immediately precedes a given value in any nonreal 
scalar type. The PRED function returns the predecessor value. 

predeclared 

Declared by PASCAL rather than by the programmer. 

predeclared identifier 

Identifier declared by PASCAL to name a type, constant, variable, 
procedure, or function. 

predeclared subprogram 

Procedure or function declared by PASCAL and available for use 
without further declaration. 

predefined 

See predeclared. 

procedure 

Program unit that consists of a procedure heading and a block. 
When called, a procedure is executed as a unit. See also 
predeclared subprogrami. 

procedure call 

Statement that invokes a procedure. A procedure call consists of 
the name of a procedure and its actual parameter list (when 
required) . 

procedure heading 

Specification of the name and optional formal parameters of a 
procedure in a procedure declaration. 
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program heading 

Specification that begins a PASCAL program. The program heading 
specifies the program's name and its external files. 

read parameters 

Variables used as parameters in a call to the READ or READLN 
procedure to which input values will be assigned. 

real number 

In PASCAL, the floating-point internal representation of a number 
that can be of any size; however, each number can be rounded to 
fit the precision of 27 bits (7 to 9 decimal digits) . The value 
0.0 is also included. 

REAL type 

Predefined scalar type that has single-precision real numbers as 
values; synonymous with SINGLE type. 

record 

Organized collection of data containing one or more fields, each 
of which can be of a different type. 

relational operator 

Symbol that tests the relationship between two values, the result 
of which is one of the Boolean values, FALSE or TRUE. PASCAL'S 
relational operators are <, >, <=, >=, and <>. 

repetitive statement 

Statement that causes an action to be performed iteratively. 
PASCAL'S repetitive statements are FOR, REPEAT, and WHILE. 

reserved word 

Word set aside by the PASCAL compiler as the name for a 
declaration, statement, data structure, delimiter, or operator. 
Reserved words have special meanings to the compiler and cannot 
be used as identifiers. 

return value 

Result of a function, assigned to the function's name during its 
execution. The return value is supplied to the calling program 
wherever a reference to the function appears. 

scalar data type 

Type in which the values are unique and indivisible units of 
data. The values of a scalar type follow a particular order. 
Predefined scalar types include INTEGER, REAL, CHAR, and BOOLEAN. 



scope 



Portion of the program in which an identifier has a particular 
meaning. The scope of an identifier is the block in which it is 
declared . 
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semi reserved word 

Word set aside by the PASCAL compiler that has a special meaning 
to the compiler. Semireserved words can be used as identifiers. 

set 

Collection of nonreal scalar elements, called members. 

single precision 

Precision of approximately seven significant digits for a 
floating-point real number; the types SINGLE and REAL provide 
single precision. 

SINGLE type 

Predefined scalar type that has single-precision real numbers as 
values; synonymous with REAL type., 

source file 

TOPS-10 or TOPS-20 file that contains source program statements 
used as input to a language compiler. 

statement 

Sequence of reserved words, identifiers, operators, expressions, 
and special s^^mbols describing a program action or altering the 
flow of program execution. 

s t r i ng 

See character string. 

string constant 

Character string used as a literal constant in the program, for 
example 'one pink rose' . 

string variable 

Variable of type PACKED ARRAY ri..n] OF CHAR, where n represents 
an integer constant. 

structured data types 

Collection of related data components. The components can be of 
the same type (as for arrays and files) or of different types (as 
for records) . 

subprogram 

Procedure or functions; used in this manual in descriptions that 
apply to both procedures and functions. 

subrange types 

Subset of an existing scalar type, defined for use as a type. A 
subrange must be a continuous range of values, and is described 
by its upper and lower bounds separated by the .. symbol. 
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successor value 

Value that succeeds a given value in any nonreal scalar type. 
The SUCC function returns the successor value. 

symbolic constant 

Name defined to represent a constant value; can be used in place 
of the value . 

symbolic name 

Word used in a PASCAL program. A symbolic name can be a reserved 
word, a predeclared identifier, or a user identifier. 

text file 

File that has components of type CHAR and is implicitly divided 
into 1 ines . 

type 

Set of values, usually named with an identifier, for which 
certain operations are defined. Some types are defined by PASCAL 
-- INTEGER, REAL, SINGLE, DOUBLE, BOOLEAN, and CHAR. Others are 
defined by the programmer. 

user-defined type 

Type defined by the programmer. User-defined types can be scalar 
(enumerated or subrange), structured, or pointer. 

user identifier 

Identifier created by the programmer to denote a program, 
constant, type, variable, procedure, or function. 

value initialization 

TOPS-20 extension that allows a programmer to assign a constant 
value to a variable in the program's declaration section. 

value parameters 

Parameters in which the value is passed only to the subprogram. 
Another value is not passed back from the subprogram. 

variable 

Data item (of fixed type) that can change in value during 
execution of the program. 

variable parameters 

Parameters in which the value is passed to the subprogram, and a 
changed value is passed back to the block from which the 
subprogram is called. 

write parameters 

Expressions that are specified as parameters to the WRITE or 
WRITELN procedure, which writes them in the specified file. 
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-A- 

ABS function, C-8 
Actual parameter list 

See Glossary 
Actual parameters, 7-3, 7-7 

See Glossary 
Address 

See Glossary 
AND operator, 2-11, 3-2, f>-9 
ARCTAN function, C-8 
Arithmetic expressions, 2-8 

See Glossary 
Arithmetic functions, C-8 
Arithmetic operators, 2-7, 2-8 

See Glossary 
ARRAY, 3-2, 5-2 
Arrays, 2-6, 5-1, 5-2 

See Glossary 
ASCII character set, B-3 

See Glossary 
Assignment operator, 6-2 
Assignment statement, 1-6, 2-7, 
6-1, 6-2 

See Glossary 

-B- 

Base type, 2-6 

See Glossary 
BEGIN, 1-3, 3-2 
Binary notation, 2-3 
Block, 1-2, 3-1, 7-2, 7-3 

See Glossary 
Boolean expressions, 6-5, 6-8, 
6-10, 6-11 

See Glossary 
Boolean functions, C-8 
BOOLEAN type, 2-3, 2-5, 3-3 

See Glossary 
Bound 

See Glossary 

-C- 

Calling a function, 7-6 
Calling a procedure, 7-3 



CARD function, C-8 
Case label 

See Glossary 
ase selector, 6-13 

See Glossary 
ASE statement, 6-10, 6-13 
ase-]abel list, 6-13 
HAR type, 2-3, 2-5, 3-3, 5-2 

See Glossary 
haracter 

See G] ossary 
haracter strings, 5-8 

See Glossary 
HR function, C-8 
LOCK function, C-8 
LOSE procedure, C-4 
ommand 

EXECUTE, 1-11 

LOAD, 1-11 
See Glossary 
omments, 1-2 

See Glossary 
omparisons, 2-10 
ompiler 

See Glossary 
ompiling a program, 1-10 
omponent type, 5-2 
omponents, 5-1 

See Glossary 
ompound statement, 1-6, 6-1, 6-3 

See Glossary 
onditional statement, 6-1, 6-10 

See Glossary 
ONST, 1-4, 3-1, 3-2, 3-4 
onstant definitions, 3-4 
onstants, 2-1 

See Glossary 
ontrol statement 

See Glossary 
Control variable, 6-4 

See Glossary 
COS function, 3-3, C-8 
Creating a program, 1-9 
CTRL/Z, 4-14 
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Da ta structures 

See Glossary 
Data types, 2-1 

See Glossary 
DATE procedure, C-4 
Decimal notation, 2-3 

See Glossary 
Declaration section, 1-2, 1-4, 
7-2 

See G] ossa ry 
Declarations, 3-1 
Declaring a function, "7-5 
Declaring a procedure, 7-3 
Defaul t 

See Glossary 
Defining logical names, 4-2 
Definitions, 3-1 
Del imi ter 

See Glossary 
Dimension 

See Glossary 
DISPOSE procedure, C-4 
DIV operator, 2-8, 3-2 
DO, 6-4, 6-8 
Dollar sign, 3-3 
Double precision, 2-3, 2-4 

See Glossary 
DOUBLE type, 2-3, 3-3 

See Glossary 
DOWNTO, 6-4 

-E- 

ELSE, 3-2 

END, 1-3, 3-2, 5-11 

End-of-f ile 

See Glossary 
End-of- 1 ine 

See Glossary 
Enumerated types, 2-6, 3-7, 3-8 

See Glossary 
EOF function, 3-3, 4-1, 4-12, 

4-13, C-8 
EOLN function, 4-1, 4-12, 6-9, 

C-B 
EXE file, 1-11 
Executable image 

See Glossary 
Executable section, 1-2, 1-5, 7-2 

See Glossary 
Executable statement 

See Glossary 
EXECUTE command, 1-11 
Executing a program, 1-11 
/EXIT switch, 1-10 
EXP function, C-8 
EXPO function, C-8 
Expressions, 2-2, 2-7 

See Glossary 

arithmetic, 2-7 
See Glossary 
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Boolean, 6-5, 6-8, 6-10, 6-11 
See Glossary 

logical, 2-5, 2-11, 6-9 

relational, 2-5, 2-10 
External file 

See Glossary 

-F- 

FALSE, 2-5, 3-3 
Field 

See Glossary 
Field names, 5-10 
Field widths, 4-8 

See G] ossary 
Field-width parameters, 4-9 
FILE, 3-2 
File 

See Glossary 
File component 

See Glossary 
File generation number 

See Glossary 
File name 

See Glossary 
File position 

See Glossary 
File position pointer, 4-13 
File specification 

See G] ossary 
File type 

See Glossary 
File variable 

See Glossary 
Files, 2-6, 5-1 
FIND procedure, C-4 
Floating-point notation, 2-3 

See Glossary 
FOR statement, 6-3, 6-4 
Formal parameters, 7-3, 7-5, 7-7 

See Glossary 
FUNCTION, 1-4, 3-1, 3-2, 7-1, 7-5 
Function 

See Glossary 

ABS, C-8 

ARCTAN, C-8 

CARD, C-8 

CHR, C-8 

CLOCK, C-8 

COS, 3-3, C-8 

EOF, 3-3, 4-1, 4-12, 4-13, C~8 

EOLN, 4-1, 4-12, 6-9, C-8 

EXP, C-8 

EXPO, C-8 

LN, C-8 

ODD, C-8 

ORD, 2-3, 2-6, C-8 

PRED, C-8 

ROUND, C-8 

SIN, C-8 

SNGL, C-8 

SQR, C-8 
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SQRT, C-8 

SUCC, C-8 

TRUNC, C-8 

UNDEFINED, C-8 
Function call, 7-f; 
Function example, 7-6 
Function heading, 7-5 

See Glossary 
Function reference 

See Glossary 
Function type, 7-S 
Functions, 2-1 
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LN function, C-8 
LOAD command, 1-11 

See Glossary 
Loading an object file, 1-11 
Local identifier 

See Glossary 
Local variables, 7-2 
Logical expressions, 2-5, 2-11, 

S-9 
Logical operators, 2-7, 2-11 

See Glossary 
Loop body 

See Glossary 
Loops, 6-4, ^-5, 6-8 
Lower limit, 3-9 



GET procedure, C-4 
Global identifiers 

See Glossary 
Global variables, 7-2 

See Glossary 
Glossa ry 

See Glossary 
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HALT procedure, C-4 
Head ing 

See Glossary 
Hexadecimal notation, 2-3 

-I- 

Identifiers, 2-1 

See Glossary 
IF statement, 3-2 
IF-THEN statement, 6-10 
IF-THEN-ELSE Statement, 6-10, 

6-11 
Index 

See Glossary 
Index type, 5-2 
INPUT, 1-4, 3-3, 4-1 
Input procedure 

See Glossary 
Integer 

See Glossary 
INTEGER type, 2-3, 3-3 

See Glossary 
Interactive mode 

See Glossary 
Internal file 

See Glossary 

-L- 

LABEL, 1-4, 3-1 
Label 

See Glossary 
LINELIMIT procedure, C-4 
LINK 

See Glossary 
/LISTING switch, 1-10 
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Members, 5-1 

Miscellaneous functions, C-8 

MOD operator, 2-8 

MODULE, 3-2 

Modulus 

See Glossary 
Multidimensional arrays, 5-6 

See Glossary 

-N- 

Nested 

See G] ossary 
NEW procedure, C-4 
NOT operator, 2-11, 3-2 

-0- 

Object module 

See Glossary 
Octal notation, 2-3 
ODD function, C-8 
OPEN procedure, C-4 
Operator 

See Gl ossary 

AND, 2-11, 3-2 
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DIV, 2- 

MOD, 2- 

NOT, 2-11, 3-2 

OR, 2-11, 3-2, 

REM, 2-8, 3-2 
Operators 

arithmetic, 2-7, 2- 
See Glossary 

logical, 2-7, 2-11 
See Glossary 
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relational, 2-7, 2-10, 5-10 
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OUTPUT, 1-4, 3-3, 4-1 
Output procedure 
See Glossary 
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PACK procedure, C-4 
PACKED, 5-9 
Packed 

See Glossary 
Packed array, 5-8 
PAGE procedure, C-4 
Parameter list, 7-2 

See Glossary 
Parameters, 7-7 

See Glossary 

actual , 7-3 , 7-7 
See Glossary 

formal , 7-3 , 7-7 
See Glossary 

read 

See Glossary 

value, 7-7 

See Glossary 

variable, 7-7 
See Glossary 

wr i te 

See Glossary 
PASCAL extensions, 1-1 
PASDDT, 1-11 
PASIN: , 4-2 
PASOUT:, 4-2 
Period, 1-2 
Po inter 

See Glossary 
Pointer data types, 2-2 
Precedence, 2-12 
Precedence of operators, 2-12 
Precedence rules 

See Glossary 
PRED function, C-8 
Predecessor value 

See Glossary 
Predeclared functions, C-4, C-8 
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See Glossary 
Predeclared procedures, C-4 
Predeclared subprogram 

See Glossary 
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PROCEDURE, 1-4, 3-1, 3-2, 7-1, 

7-3 
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DISPOSE, C-4 

FIND, C-4 

GET, C-4 

HALT, C-4 

LINELIMIT, C-4 

NEW, C-4 



Procedure (Cont.) 

OPEN, C-4 

PACK, C-4 
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READLN, 3-3, 4-1, 4-5, C-4 

RESET, C-4 

REWRITE, C-4 

TIME, C-4 
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Program heading, 1-2, 1-4 
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PUT procedure, C-4 
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Record declaration, 5-10 
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Relational operators, 2-7, 2-10, 
5-10 

See Glossary 
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RESET procedure, C-4 
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RUN command, 1-11 
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Scalar data types, 2-2 
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SIN function, C-8 
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SNGL function, C-8 
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See Glossary 

CASE, 6-10, 6-13 
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CHAR, 2-3, 2-5, 3-3 

See Glossary 
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UNTIL, 3-1, 6-5 
Upper limit, 3-9 
User identifiers, 3-3 

See Glossary 
User-defined types, 2-6, 3-7 

See Glossary 

-V- 
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